Perlで全ファイルを消すコードを考えてみた(;´Д`)