4 # Print the time (possibly the mtime of a file) as a hexadecimal integer
5 # If more than one file, print the mtime of the *newest* file.
10 foreach $file ( @ARGV ) {
11 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
12 $ctime,$blksize,$blocks) = stat($file);
13 if ( !defined($now) || $now < $mtime ) {
18 if ( !defined($now) ) {
22 printf "0x%08x\n", $now;