8 use HTTP::Request::AsCGI;
10 my $request = HTTP::Request->new( GET => 'http://www.host.com/' );
14 my $c = HTTP::Request::AsCGI->new($request)->setup;
18 $q->start_html('Hello World'),
19 $q->h1('Hello World'),
24 # enviroment and descriptors will automatically be restored when $c is destructed.
27 while ( my $line = $stdout->getline ) {