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