opendir(HERE, '.');
open(OUT, '>fileout.txt') or die "Couldn't open the " .
"fileout.txt file for writing.\n";
@AllFiles = readdir(HERE);
foreach $Name (@AllFiles) {
# If directory skip to next filename
    if(-d $Name) { next }
    $FileAcc = sprintf('%3d', -A $Name);
# Check for files that have been accessed in the last 10 days
 if ($FileAcc <= 10) {
   print "$Name ";
   print "File was last Accessed ", $FileAcc, " days ago\n";
   printf OUT $Name . "\n"; }
 else { print $Name, " File was Accessed more than 10 days ago\n"; }
}
closedir(HERE);
close(OUT);