Select Code to Download

find2perl . -type f -mtime +7 -maxdepth 0 -exec rm {} \;

if(-M $file > 7.0) {
    unlink $file;
}