#!/usr/bin/perl# $Id$## Print the time (possibly the mtime of a file) as a hexadecimal integer# If more than one file, print the mtime of the *newest* file.#undef $now;foreach $file ( @ARGV ) {    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,     $ctime,$blksize,$blocks) = stat($file);    if ( !defined($now) || $now < $mtime ) {	$now = $mtime;    }}if ( !defined($now) ) {    $now = time;}printf "0x%08x\n", $now;