Select Code to Download

#! /usr/bin/perl
use Time::Local;
...
print "Calculated    time is $time.\n";
my $newtime = time();
print "While current time is $newtime.\n";

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