Help for this page

Select Code to Download

Select or download this

   use Class::Prototyped;

...

    print "Default food: ",
          $bavarian->food(), "\n";