#!/usr/bin/perl

print qq`
Usage: $0 <files to check>
`;

for(@ARGV) {
    printf("%24s was last accessed on %s\n",$_,scalar localtime((stat $_)[8]));
}