まてその前にPerlってインデント付けないのか？
激しくソース読みにくいんだがｗ