#!/usr/bin/perl  
print "Content-type: text/html\n\n";
print "here we go again...";

eval {
        require LWP::UserAgent;
        require HTTP::Request::Common;
        import  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";
[download]