みなさんすいません。まだperl習って1ヶ月くらいなもんでf^^;
いろいろ意見ありがとうございますm(__)m