$|=1; # So it works in the Open Perl IDE

@files = glob "*"; # get the names of all files

foreach $e (@files){
  print "$e\n" if (-M $e > 1 && -f $e); # print only "old" files, not dirs
}

