Select Code to Download

  $dbh = DBI->connect("DBI:mysql:db_name:db_host:3306;mysql_connect_ti
+meout=5","username","password");

eval {
...
   die unless $@ eq "connect timeout\n";
}