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

##</code><code>##

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