#!/usr/bin/perl

use URI::Escape;
use IPC::Open2;


my $post_url = "https://www.domain.com/cgi-bin/AcceptXML";

my $curl = "/usr/local/bin/curl";
my $curl_opt = "-H 'Content-Type: text/xml'";

my $basic_auth = "";

$post_url =~ s|://|://$basic_auth\@| if $basic_auth;

open2(*README, *WRITEME, "$curl $curl_opt -d \@- $post_url 2>/dev/null");

my $xml_out = qq[<?xml version="1.0" encoding="UTF-8"?>
<SomeXml>
 <SomeData>1234</SomeData>
 <SomeOtherData>x=25%</SomeOtherData>
 <MoreData id="445A">Pink Elephants</MoreData>
</SomeXml>
];

print WRITEME &uri_escape($xml_out);

close WRITEME;