Select Code to Download

use strict;
use warnings;

...
   $sth->execute or die "executing: ", $dbh->errstr; 
   $td = $sth->fetchrow_array;
   print "$td";

C:\ram>perl timeinblt.pl
Can't locate object method "connect" via package "DBI" (perhaps you fo
+rgot to load "DBI"?) at timeinblt.pl line 14.
C:\ram>