ttp://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/037.txt
ttp://isweb36.infoseek.co.jp/computer/perldev/cgi-bin/upload/source/038.txt