use File::Find::Rule;
unlink find(file => mtime => '<='.(time - 5 * 24 * 3600), in => $dir);