ActivePerlだとどうもうまくいかんなぁ・・・
ってところで、思った
これPythonでやっちゃえばいいんじゃね？
　
ってことで、お試しお試し・・・orz
一発でうまくいったよ・・・orz