find /foo/bar -mtime +7 -exec rm -rf {} \;

##</code><code>##

use File::Find;
find(\&wanted, '/foo/bar');

sub wanted {
    unlink $_ if -M $_ > 7;
}