if (-C $file > 45) {
  print "$file is too old.\n";
};