sub GetParams
{
    my $webparams;
   
    if ($ENV{'QUERY_STRING'} ne '')
    {
        $webparams = "$ENV{'QUERY_STRING'}";
    }
    else
    {
        read(STDIN, $webparams, $ENV{'CONTENT_LENGTH'});
    }
    return $webparams;
}