# get the difference between two epoch times and cope with 2038
sub diff_time {
    my ( $begin, $end ) = @_;
    # for now all we need is:
  return $begin - $end;
    # Jan 19 03:14:07 2038 we have potential rollovers so
    require Math::BigInt;
    # blah
}

##</code><code>##

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!';