Select Code to Download

my %attr;
$attr{socket} = "/usr/kasenna/mysql/tmp/mysql.sock";
my $dbh = DBI->connect('dbi:mysql:nemo', 'nemo', 'password', \%attr);