#!/usr/bin/perl -w
use strict;

die "Usage: $0 <files> ...\n" unless @ARGV;

my $res = map { printf("%24s last accessed on %s.\n", $_, 
                scalar localtime( (stat)[8] )); } @ARGV;