964644652       Wed Jul 26 13:50:52 2000
964644691       Wed Jul 26 13:51:31 2000

##</code><code>##

use strict; # Always.
my $logname = "log.txt";
open LOG, $logname or die "Failed to open $logname, $!";
my( $start, $stop );
while( $start = <LOG> )
{
  ($start) = split /\s/, $start;
  $stop  = <LOG> or die "No End Time in LOG!\n";
  ($stop) = split /\s/, $stop;
  my $time_in_seconds = $stop - $start;
  # Do something with $time_in_seconds
  print "$time_in_seconds\n";
}
close LOG or die "Failed to close $logname, $!";

##</code><code>##

use strict;
my $t = time(); 
print $t, "\t", scalar localtime($t)";

##</code><code>##

START 964644691       Wed Jul 26 13:51:31 2000
STOP  964644691       Wed Jul 26 13:51:31 2000