Select Code to Download

$in=param('in');
if($in eq "this"){&this}
...
if($in eq "bar"){&bar}
if($in eq "zzz"){&zzz}
# imagine a lot more

$in=param('in');
@actions=qw(this that foo bar zzz); # names of subroutines and input v
+alues
foreach $_(@actions){ if($in eq $_){&$_()}}