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