Make backwards compatible with Perl 5.10.1

This fixes the following crashed on your bustedness:

#1:
$ ./play 
Use of uninitialized value $dir:: in concatenation (.) or string at RecipeBook.pm line 26.
Can't locate object method "_get_ingredients" via package "Bread" (perhaps you forgot to load "Bread"?) at RecipeBook.pm line 31.
Compilation failed in require at Character.pm line 7.
BEGIN failed--compilation aborted at Character.pm line 7.
Compilation failed in require at (eval 4) line 3.
       ...propagated at /usr/share/perl5/base.pm line 94.
BEGIN failed--compilation aborted at Player.pm line 6.
Compilation failed in require at ./play line 7.
BEGIN failed--compilation aborted at ./play line 7.
$

#2.
$ ./play
Type of arg 1 to keys must be hash (not private variable) at Player.pm line 180, near "$exits) "
Compilation failed in require at ./play line 7.
BEGIN failed--compilation aborted at ./play line 7.
$