if (-M $file >= $age){ unlink $file or die "can't delete the damned file!: $!"; }