find2perl SOMEDIR -mtime +5 -print 

##</code><code>##

# hand waving prior to this
#
chdir $MYDIR;
opendir(DIR,"$MYDIR") or die "Could not open $MYDIR:$!";
while (my $file=readdir(DIR)){
     my $age= -M $file;
     unlink $file if int($age) > 5;
}
closedir(DIR);