#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
use Search2;

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



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