#! /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";