#!/usr/bin/perl -w

use Time::Local;   ######  For timelocal function ONLY!

$then = time();
printf("Time is: %ld\n\n", $then);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($then);
print "Seconds = $sec\n";
print "Minutes = $min\n";
print "Hours   = $hour\n";
print "Day of month = $mday\n";
print "Month   = $mon\n";
print "Year    = $year\n";
print "Day of week  = $wday\n";
print "Day of year  = $yday\n";
print "Daylight time?  $isdst\n\n";

print "Localtime in scalar context:  ",scalar(localtime($then)),"\n\n";

$now = timelocal($sec, $min, $hour, $mday, $mon, $year);
printf("New time is: %ld\n\n", $now); 

############  Tricks to Convert Numeric Day/Month to a String  ###########

$day    = (Sun,Mon,Tue,Wed,Thu,Fri,Sat) [$wday];
$month  = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon];
print "Today is: $day, $month $mday\n";

######################  Wall Clock Benchmarking Trick  #####################

$then = time();
for($i = 0; $i < 1000000; $i++){}  #####  Nonsense but good for a demo!
$now  = time();
print "One million for loops took ",$now - $then," seconds.\n";
##########################  Program Output Below  ##########################

Time is: 896163189

Seconds = 9
Minutes = 13
Hours   = 23
Day of month = 25
Month   = 4
Year    = 98
Day of week  = 1
Day of year  = 144
Daylight time?  1

Localtime in scalar context:  Mon May 25 23:13:09 1998

New time is: 896163189  #####  Timelocal is the inverse of localtime!!

Today is: Mon, May 25

One million for loops took 13 seconds.