Select Code to Download

my $dbh = DBI->connect($db_info, 'username', 'password',
    { PrintError => 0 }
) or die("Couldn't connect to database\n");
...
}

print "info: " , getdb() , "\n";