Select Code to Download

use DBI;

...
        or die "Unable to connect to DB $DB $!";
      $dbh->disconnect or die;
}

Time before sleep 09/14/2007 13:21:08
Time after sleep 09/14/2007 13:21:08
...
Time after sleep 09/14/2007 13:21:39
Time before sleep 09/14/2007 13:21:39
Time after sleep 09/14/2007 13:21:39

while (1) { # never ending loop
      my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $mon++;
+ $year+=1900;
...
        or die "Unable to connect to DB $DB $!";
      $dbh->disconnect or die;
}