現在書いているコードも載せておきます。

http://uploader.moe.hm/cgi-bin/upload.cgi?mode=dl&file=2085 パス：perl