#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

while($#ARGV >= 0) {
    my $file = shift(@ARGV);

    (($atime, $mtime, $ctime) = (stat($file))[8..10]) || 
    		    die "$file: stat error";

    print "$file:\n";

    print "Read ............ ", 
          scalar localtime $atime, "\n";

    print "Modified ........ ", 
          scalar localtime $mtime, "\n";

    print "Rights changed .. ", 
          scalar localtime $ctime, "\n";
}