#!/usr/bin/pperl
use strict;
use CGI qw(:standard);
use Switch;

######################################
# Setup our Variables
my $myCGI = new CGI;
my $parameters = $myCGI->Vars;
# Holds the POST passed function name
my $function = $parameters->{'function'};

######################################
# This is the function request handler, it takes the 'function' argument passed 
#   in the POST and calls the correct function
switch ( $function ) {
	case 'one' { 
		print $myCGI->header(-type=>"text/html",-charset=>"UTF-8");
		print $myCGI->start_html;
		funcOne();
	}
	case 'two' {
		print $myCGI->header(-type=>"text/html",-charset=>"UTF-8");
		print $myCGI->start_html;
		funcTwo();
	}
	case 'three' {
		print $myCGI->header(-type=>"text/html",-charset=>"UTF-8");
		print $myCGI->start_html;
		funcThree();
	}
	else {
		print $myCGI->header(-type=>"text/html",-charset=>"UTF-8");
		print $myCGI->start_html;
		print "Function not found";
	}
}

sub funcOne(){
	print "\nONE\n";
	return( 1 );
}

sub funcTwo(){
	print "\nTWO\n";
	return( 1 );
}

sub funcThree(){
	print "\nTHREE\n";
	return( 1 );
}