Yusukebe氏のPerl本サンプルプログラムの写経