#!/usr/bin/perl

my $string = "%-28s %25s %25s\n";

my $count = 0;
foreach (@ARGV) {
    my $atime = (stat ($_))[8];
    my $mtime = (stat ($_))[9];
    printf ($string, "File Name", "Modified Time", "Access Time") 
		if ($atime && !$count);
    if ($atime) { 
        printf ($string, $_, scalar localtime ($mtime), 
                             scalar localtime ($atime));
    } else { 
	    print "Couldn't access '$_': $!\n"
    }
}

exit 0;