Select Code to Download

#!/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' )...