This is an old revision of the document! File Operations Fast file deletion perl cd <directory> perl -e 'for(<*>){((stat)[9]<(unlink))}' rsync mkdir empty_dir rsync -a --delete empty_dir/ <directory>/