#!/agl/tools/perl/bin/perl
$file = 'home/testuser3/choicebug.txt';
 sub GetParams
{
    my $webparams;
   
    if ($ENV{'QUERY_STRING'} ne '')
    {
        $webparams = "$ENV{'QUERY_STRING'}";
    }
    else
    {
        read(STDIN, $webparams, $ENV{'CONTENT_LENGTH'});
    }
    return $webparams;
}

open(FILE, ">>$file")||die "Can't open $file";
GetParams();
while (<$webparams>)
	{	print $webparams;
	}
close (FILE);