my $q =new CGI;
my $params=$q->Vars(); 

my %hash=('sub1'=>\&sub1,'sub2'=>\&sub2, ''=
>\&notfound);

main();
sub main {
    #call the sub as defined by cgi param 'action'
    &$hash{$params->{'action'}}->() ;
}