Select Code to Download

#!/usr/bin/perl
#

...
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";