$r->content_length(5);
$r->content_type('text/plain');
-my $c = HTTP::Request::AsCGI->new($r);
-$c->stderr(IO::File->new_tmpfile);
+my $c = HTTP::Request::AsCGI->new(
+ request => $r,
+ stderr => IO::File->new_tmpfile
+);
+
$c->setup;
print STDOUT 'STDOUT';