Does this do what you want?

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

The output is:

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