Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
my $ts = unpack "x$coffoff V", $dos;

print "$ARGV[0] : ", scalar( localtime $ts) || "has unfathomable times
+tamp value $ts" );
  2. or download this
    #! perl -slw
use strict;
...
C:\cl>p:exetime.pl cl.exe
Sat Jan  5 10:48:19 2002