Select Code to Download

sub cookup2 {
    my %usd = @_;
...
        $usd{$cst};
    };
}

$ cat t15.pl

...
print $ask->("Lovey") . "\n";
cookup2 ( @usages );
print ask_monkey_about("Lovey") . "\n";

$/opt/perl5.16/bin/perl t15.pl 
Variable "%usd" will not stay shared at t15.pl line 11.
98
98
$