#!/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;