#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;

my $query = CGI->new ;
loadPage ();



sub loadPage {
    my $page = "";
    $page = $query->param("page");    
    if ($page eq 'main') {
	print "Content-Type: text/html\n\n";
        print "main page to load";
    }else {
        print "Content-Type: text/html\n\n";
        print "error";
    }
}