#!/usr/bin/perl
#

use Time::Local;
#
use strict;
use warnings;

# note months are 0 to 11 - hence the '-1'
# timegm is seconds, minutes, hours, day, month -1, year
my $two_k_epoch = timegm( 0, 0, 0, 1, 0, 2000 ); # midnight 01 January 2000 - change to noon if required
my $linux_epoch = timegm( 0, 0, 0, 1, 0, 1970 ); # midnight 01 January 1970

print "2K epoch: $two_k_epoch\tLinux epoch: $linux_epoch\n";