一つ関数を書くか、CPANから探してきて使うだけでしょ