{
my $r = HTTP::Request->new( GET => 'http://www.host.com/' );
- my $c = HTTP::Request::AsCGI->new($r);
+ my $c = HTTP::Request::AsCGI->new( request => $r );
$c->setup;
{
my $r = HTTP::Request->new( GET => 'http://www.host.com/' );
- my $c = HTTP::Request::AsCGI->new($r);
+ my $c = HTTP::Request::AsCGI->new( request => $r );
$c->setup;
-
+
print "Content-Type: text/plain\n";
print "Status: 500 Borked\n";
print "\n";