Select Code to Download

<select name="foo">
<option value="">Please make a selection
<option value="first">First
<option value="second">Second
</select>

my $doit = $q->param('foo');
my %functions = ('first'   =>  \&one,
                 'second'  =>  \&two
                );

&{ $functions{$doit} };