#!/perl/bin/perl
use strict;
use warnings;

use DBI;
use URI;
use LWP::UserAgent;
use Data::Dumper::Names;


my $ua  = LWP::UserAgent->new;

$ua->max_size( 131072 );
$ua->agent('test_xml_pusher');
$ua->ssl_opts(verify_hostname => 0);

my $url = URI->new;
$url->scheme('https');
$url->host('xxxxxxxxxxxxxxxxxxxxxxxxx');
$url->port(443);
$url->path_segments('test.cgi');


# Yes, I know...  it's not valid xml...  don't care for the purposes of this test.
#
my $xml = 'test';

my $response = $ua->post( $url, Content => $xml, 'Content-Type' => 'application/xml' );


print Dumper($response);

my $status_line = $response->status_line;

print Dumper($status_line);

my $content = $response->content;

print Dumper($content);