y2k038.pl


   1 #! /usr/bin/perl
   2 
   3 # http://www.google.com/search?q=2038+date
   4 
   5 use POSIX;
   6 $ENV{'TZ'} = "GMT";
   7 
   8 my $eow = 2147483641;
   9 for ( $clock = $eow ; $clock < 2147483651 ; $clock++ ) {
  10     my $dt = $clock - $eow - 7;
  11     print "@{[$dt > 0 ? '+':'']}$dt @{[ctime($clock)]}";
  12 }
  13