perl sub rootinを書いてみる