#!/usr/bin/perl -w
######################################################################
# timestamp.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

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";
}