sub main
{
        my $cgi = CGI->new();
        my %params = $cgi->Vars();