#!perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser); #errors will show in browser
my $q = new CGI;
print qq!
one
two
three
!;
if($q->param){
my $sub = $ENV{'QUERY_STRING'};
if(defined &$sub){
print "
";
&$sub;
}else{
print "
";
&error;
}
}
sub one {
print "sub... one";
}
sub two {
print "sub... two";
}
sub three {
print "sub... three";
}
sub error {
print "ERROR\!\!";
}