use CGI::Simple;
my $q = CGI::Simple->new();
print "Content-type: text/plain\n\n";
print $q->param('text');