#!perl -w

use strict;
use CGI qw/:Standard/;
CGI::header();


my $sub = CGI::param('type'); 
my $data = CGI::param('info');



if($sub eq 'first'){
	&one($data);
} elsif($sub eq 'second') {
	&two($data);
} else {
	&one($data);
}



sub one {
print "Sub one says: $_[0]";
}



sub two {
print "Sub two says: $_[0]";
}