
use Time::Local;
my $d = "Noon on Jan 2 1970";
my $htime = timelocal(0,0,12,2,0,70);
print "$d in Belfast was $htime seconds after the epoch.\n";

# timegm() similarly.
my $gtime = timegm(0,0,12,2,0,70);
print "$d in Greenwich was $gtime seconds after the epoch.\n";

my $diff = $htime - $gtime;
print "It was noon in Greenwich $diff seconds earlier.\n"

