Select Code to Download

my $l = new z;
...
   return "were requested xxx4: $param \n";
   };

eval ("print \$l->$str$str1(\$str2)");

$method = $fast ? "findfirst" : "findbest";
$fred->$method(@args);          # call by name

my $method = $str.$str1;
print $l->$method($str2);