if (-M $filename < 4) {
  print "The file $filename was accessed less than four days ago\n";
};