#!perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser); #errors will show in browser

my $q = new CGI;

print qq!
<a href="script.cgi?one">one</a>
<br>
<a href="script.cgi?two">two</a>
<br>
<a href="script.cgi?three">three</a>
!;

if($q->param){
	my $sub = $ENV{'QUERY_STRING'};
	if(defined &$sub){
		print "<BR><BR>";
		&$sub;
	}else{
		print "<BR><BR>";
		&error;
	}
}

sub one {
	print "sub... one";
}

sub two {
	print "sub... two";
}

sub three {
	print "sub... three";
}

sub error {
	print "ERROR\!\!";
}