##
my $node = param('node')
##
##
#!/usr/bin/perl
use CGI;
my $node = param('node');
my %lookup_table = (how => 'how_sub', foo => 'foo_sub');
if ($lookup_table{$node} ne '') {
&{$lookup_table{$node}};
} else {
print "Unknown sub called\n";
}
sub how_sub {}
sub foo_sub {}