「Head First デザインパターン」のJava例をPerlで