Code from An Introduction to Test Drivern Development Using Perl by Grant McLean