Select Code to Download

#!perl -w

...
print "ctime time: ",scalar(localtime($time)),"\n";
print " localtime: ",join(", ",localtime($time)),"\n";
print " timelocal: ",timelocal(localtime($time)),"\n";

Epoch time: 1111461913
ctime time: Mon Mar 21 22:25:13 2005
...
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time
+/Local.pm
line 67.
 timelocal: 1111461913

# Line 24 immediately below
my $SecOff       = 0;
...

    $sec +  86400 * &_daygm;
}