Select Code to Download

#!/usr/bin/perlml

...
use Data::Dumper;
use DBI;
#use DBD::mysql;

my $dbh = DBI->connect("DBI:mysql:$db:$server", $userid, $passwd);