LWP Test

Can't call method "request" on an undefined value at /usr/lib/perl5/site_perl/5.6.0/LWP/UserAgent.pm line 362. ##

##

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw( fatalsToBrowser );

require LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;

print "Content-type: text/html\n\n";

my $ua = new LWP::UserAgent;

my $content = 'Content';

my $URL = 'https://some.address.here';

my $headers = HTTP::Headers->new(
	MIME_version   => '1.0',
	Content_type   => 'application/PTI9',
	Content_length => length($content),
	Content_transfer_encoding => 'text',
	Request_number => 1,
	Document_type  => 'Request',
);

print <<"EOH";

LWP Test

Request
EOH

my $request = HTTP::Request->new(POST => $URL, $headers, $content);
print $request->as_string();
print <<"EOH";

Response
EOH

my $response = $ua->request($request);

if ($response->is_success)
{
	print $response->content;
}
else
{
	print $response->error_as_HTML;
}

print <<"EOH";
Completed

EOH

exit;

##

##

LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: POST https://some.adddress.here
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
Can't call method "request" on an undefined value at /usr/lib/perl5/site_perl/5.6.0/LWP/UserAgent.pm line 362.