Select Code to Download

#!C:\perl\bin\perl.exe -lw

my $starttime = localtime();
...
print "\t2nd POSIX, \$^T: " . POSIX::strftime "%H:%M:%S", localtime($^
+T);
print "\t3rd POSIX, current time: " . POSIX::strftime "%H:%M:%S", loca
+ltime();
print "local_time(): " . localtime();

11:10:11
$endpart: 11:10:13 and Runduration: 2 seconds
=======================
...
local_time(): Wed Feb  4 11:10:13 2009
POSIX localtime: Wed Feb  11:10:13 2009
...and after sleeping another second, POSIX localtime: Wed Feb  11:10:
+14 2009