note
lokiloki
I just tried #2, or my interpretation of #2 and it didn't work... here is the code I used:
<code>
#!/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";
}
</code>
And here is the error I got:
<code>
./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.com""
Execution of ./networktest.pl aborted due to compilation errors.
</code>
586338
586343