とりあえずperl初めてだし・・・って事でここのソース参考にするのは良くないね。