Select Code to Download

require "all_hashes.pl";       # read in all the hashes
our $item = "Perl";            # this $item must be global  :-(
...

print $out;                    # $out is defined in template.pl
#...

my $out = "-p $act1{$item} -p $act2{$item} ...";

my %act1 = (
           "food"  => "eat it",
...
           "drink" => "be drunk",
           "Perl"  => "write it");
#...