先生！出直してきました。
また見てやってくださいませ。

http://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/018.lzh