I tried this bit of code pretty much right from the cpan LWP page and got the following errors in my error log.
#!usr/bin/perl -w
# Create a user agent object
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
# Create a request
my $req = HTTP::Request->new(GET => 'http://www.e-gold.com/unsecure/
+metaldata.asp?LATEST=1&GOLD=1');
$req->content_type('application/x-www-form-urlencoded');
# $req->content('LATEST=1&GOLD=1');
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
print $res->content;
} else {
print "Bad luck this time\n";
}
failed to open log file
fopen: Permission denied
Sun Feb 16 16:22:39 2003 error client 68.58.80.240 Premature end of script headers: /usr/local/psa/home/vhosts/spendmaker.biz/cgi-bin/test3.cgi
|