Select Code to Download

my $dbh = My::DB->new({server => 'foo', db => 'oops.db'})

if ($data->{server} eq 'pg') {
   ...
...
} else {
  Carp::croak "Oops, you tried to access a '$data->{server}' type data
+base, but I have no idea what that is";
}