#! /usr/bin/perl
use Time::Local;
my $time = timelocal 0,4,6,6,8,2007;
print "Calculated    time is $time.\n";
my $newtime = time();
print "While current time is $newtime.\n";

##</code><code>##

C:\Code>perl timetest.pl
Calculated    time is 1189073040.
While current time is 1188912743.