Select Code to Download

# get the difference between two epoch times and cope with 2038
sub diff_time {
...
    require Math::BigInt;
    # blah
}

my $zero_hour = 2**31 -1;
print "Zero hour is $zero_hour\n";
print scalar gmtime($zero_hour), "\n";
print gmtime($zero_hour+1) ? "OK" . scalar gmtime($zero_hour+1) : 'Oh 
+dear!';