#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "here we go again...";

        if (eval "require LWP::UserAgent; use HTTP::Request::Common; 1
+;") {
                my $ua = LWP::UserAgent->new;
                my %post;
                my $content = $ua->request(POST "http://www.cnn.com", 
+[%post])->as_string;
                print $content;
        } else {
                print "didnt work";
        }
[download]

./networktest.pl
String found where operator expected at ./networktest.pl line 10, near
+ "POST "http://www.cnn.com""
        (Do you need to predeclare POST?)
syntax error at ./networktest.pl line 10, near "POST "http://www.cnn.c
+om""
Execution of ./networktest.pl aborted due to compilation errors.
[download]