Example perl script showing http(s) post of a cXML document

perl-post-xml.pl

#!/usr/bin/perl -w
use strict;

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use Net::SSL;
use LWP::Protocol::https;
use URI::https;

my $url = 'https://someurl.com/SubmitCXML';
my $filename = $ARGV[0];

&usage unless ($filename);

&main();

sub main()
{
	my $ua = LWP::UserAgent->new();
	my $req = HTTP::Request->new( POST => $url );

	open(MYINPUTFILE, $filename);
	my $holdTerminator = $/;
	undef $/;
	my $buf = <MYINPUTFILE>;
	$/ = $holdTerminator;
	close(MYINPUTFILE);

	$req->content_type('text/xml');
	$req->content($buf);

	my $res = $ua->request($req);

	my $resp = $res->as_string;

	print $resp;
}

sub usage 
{
	print "usage: perl-post-xml.pl filename\n\n" ;
	exit 1
}