とりあえず、今使ってるスクリプトでよければお渡ししますが・・・・
perlはあまり詳しくないんで、実に読みにくいスクリプトですが