#!/usr/bin/perl
#
# alltimes -- dump the MACtime values of one or more files
#
# Hal Pomeranz (hal@deer-run.com), 2010-01-24
#

for ($i = 0; $i < @ARGV; $i++) {
    $file = $ARGV[$i];
    unless (-r $file) {
        warn "Cannot read $file\n";
        next;
    }

    ($atime, $mtime, $ctime) = (stat(_))[8,9,10];
    print "----------\n" if ($i > 0);
    print "$file\n";
    print "atime: ", scalar(localtime($atime)), "\n";
    print "mtime: ", scalar(localtime($mtime)), "\n";
    print "ctime: ", scalar(localtime($ctime)), "\n";
}