LWP::Simple; use JSON; my $DBI = DBIx::Config->new( load_credentials => sub { my ( $self, $config ) = @_; return decode_json( ge