Select Code to Download

find /path/to/dir -type f -atime +10 -exec rm {} \;

use File::Find::Rule;
File::Find::Rule->file() # only files
...
                ->exec( sub { unlink( $_[2] ) } ) # delete them
                ->in('/path/to/dir'); # starting in this path