Perl脚本删除大目录

Question

这博客提供了删除大目录的不同方法以及删除包含 500,000 个文件的目录的相对时间。据报道，使用的脚本perl是最快的，由下式给出

cd yourdirectory
perl -e 'for(<*>){((stat)[9]<(unlink))}'

StackExchange-Unix&Linux 中也报道了这个答案这里。当前脚本只能删除目录下一层的文件。任何人都可以提供一个等效的perl脚本来递归删除所有子目录及其内容吗？