Select Code to Download

sub fred { print "FRED>> @_\n" ; }
@fred = qw(a b c) ;
...
  *{$sub} = $a ;
  *{$sub} = $h ;
}