if ( (-M $file) > 1 ) { # if file is over a day old 
  do_unlinkSubHere($file); # as stated below, include the whole path in $file
  } else {
   print "Today, I will spare your life, young $file...\n";
  }