【Perl 】初心者コーナーPart5

ありがとうございます。
つい先日からperlをはじめたので恐縮なのですが
スクリプトを公開しますのでどうかよろしくお願いします。
http://www.geocities.co.jp/Technopolis/6437/index.txt
スクリプトに関するお叱りはありがたいですが
スクリプト以外のことでの誹謗中傷はご遠慮ください。