It seems it would be much easier to just do -

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

This strikes me as more simple than assigning a variable with the age etc...If you want to look at file tests in action, have a look at this.

Azatoth a.k.a Captain Whiplash

Make Your Die Messages Full of Wisdom!
Get YOUR PerlMonks Stagename here!
Want to speak like a Londoner?