Select Code to Download

use DBI;
my $dbh=DBI->connect("dbi:mysql:hostname=localhost;database=somedb","u
+serok","passwdok");
...
   my $dbh=shift;
   return $dbh->errstr();
}

perl -v
This is perl, v5.8.7 built for x86_64-linux-gnu-thread-multi

perl -v
This is perl, v5.10.0 built for i486-linux-gnu-thread-multi