Perl入学式で書いたプログラムなど