#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "here we go again...";
eval {
require LWP::UserAgent;
use HTTP::Request::Common;
my $ua = LWP::UserAgent->new;
my %post;
my $content = $ua->request(POST "http://www.cnn.com", [%post])->as_string;
print $content;
};
if (@$) {
print "ERROR: @$";
}
print "more stuff would happen here";