1#!/usr/bin/perl
2#
3# Print the time (possibly the mtime of a file) as a hexadecimal integer
4# If more than one file, print the mtime of the *newest* file.
5#
6
7undef $now;
8
9foreach $file ( @ARGV ) {
10    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
11     $ctime,$blksize,$blocks) = stat($file);
12    if ( !defined($now) || $now < $mtime ) {
13	$now = $mtime;
14    }
15}
16
17if ( !defined($now) ) {
18    $now = time;
19}
20
21printf "0x%08x\n", $now;
22