my $filename = 'abc.def.ghi';
# delete file if too old
if (-M $filename > 7) { unlink($filename) }
else { # do something with file
}