Perl instance solution (fourth edition).part1