use DBI;

while (1) { # never ending loop
      my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $mon++; $year+=1900;
      $now = sprintf("%02d/%02d/%04d %02d:%02d:%02d", 
                     $mon, $mday, $year, $hour, $min, $sec);
      print "Time before sleep $now\n";
      sleep 30;
      print "Time after sleep $now\n";

      $dbh  = ();# Initializing the dbi variables
      $dbh = DBI->connect("DBI:Oracle:DEMODB", 
                          "DEMO" , 
                          "DEMO", 
                          { PrintError => 0 } ) 
        or die "Unable to connect to DB $DB $!";
      $dbh->disconnect or die;
}

##</code><code>##

Time before sleep 09/14/2007 13:21:08
Time after sleep 09/14/2007 13:21:08
Time before sleep 09/14/2007 13:21:38
Time after sleep 09/14/2007 13:21:38
Time before sleep 09/14/2007 13:21:38
Time after sleep 09/14/2007 13:21:38
Time before sleep 09/14/2007 13:21:38
Time after sleep 09/14/2007 13:21:38
Time before sleep 09/14/2007 13:21:38
Time after sleep 09/14/2007 13:21:38
Time before sleep 09/14/2007 13:21:39
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
Time before sleep 09/14/2007 13:21:39
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
Time before sleep 09/14/2007 13:21:39
Time after sleep 09/14/2007 13:21:39

##</code><code>##

while (1) { # never ending loop
      my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $mon++; $year+=1900;
      $now = sprintf("%02d/%02d/%04d %02d:%02d:%02d", 
                     $mon, $mday, $year, $hour, $min, $sec);
      print "Time before 1st sleep $now\n";
      sleep 30;
      $now = sprintf("%02d/%02d/%04d %02d:%02d:%02d", 
                     $mon, $mday, $year, $hour, $min, $sec);

      print "Time after 1st sleep $now\n";

      $now = sprintf("%02d/%02d/%04d %02d:%02d:%02d", 
                     $mon, $mday, $year, $hour, $min, $sec);
      # new sleep added BELOW
      print "Time before 2nd sleep $now\n";
      sleep 30;
      $now = sprintf("%02d/%02d/%04d %02d:%02d:%02d", 
                     $mon, $mday, $year, $hour, $min, $sec);

      print "Time after 2nd sleep $now\n";

      $dbh  = ();# Initializing the dbi variables
      $dbh = DBI->connect("DBI:Oracle:DEMODB", 
                          "DEMO" , 
                          "DEMO", 
                          { PrintError => 0 } ) 
        or die "Unable to connect to DB $DB $!";
      $dbh->disconnect or die;
}