Help for this page
#!/usr/local/bin/perl -w use strict; ... my $food = shift; print "I don't think '$food' is food at all!\n"; }
if ( $subname eq 'do_zipped_things' )...