tags/v1_29/t/net/perl/cgi.pl.PL

#!perl
use CGI ();
use strict;

my $r = CGI->new;

#warn "Running cgi.pl with $CGI::VERSION";

my($param) = $r->param('PARAM');
my($httpupload) = $r->param('HTTPUPLOAD');

$r->print( $r->header(-type => "text/plain",
		      "-X-Perl-Script" => "cgi.pl") );
$r->print( "ok $param\n" ) if $param;

my($content);
if ($httpupload) {
    no strict;
    local $/;
    $content = <$httpupload>;
    $r->print( "ok $content\n" );
    close $httpupload; # needed on win32?
}