scripts/security/y2038_check.pl

   1 #!/usr/bin/perl
   2
   3 use POSIX;
   4 $ENV{'TZ'} = "GMT";
   5
   6 for ($clock = 2147483641; $clock < 2147483651; $clock++)
   7 {
   8   print ctime($clock);
   9 }