#!/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 {}