#!perl
my $file=shift;

if(!-e $file){die "no file";}

if(-d $file){print "directory\n";}
if(-T $file){print "text file\n";}
if(-B $file){print "binary file\n";}
my @stats = stat($file);
print "Accessed=$stats[8]\n";