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