一个提供回收站机制的单文件Perl 脚本