#!/usr/bin/perl
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $server_endpoint = "http://localhost/test/process2.cgi";   

# set custom HTTP request header fields
my $req = HTTP::Request->new(POST => $server_endpoint);
$req->header('content-type' => 'application/json');
my $xml = do { local $/; <DATA> };
$req->content($xml);

my $resp = $ua->request($req);
if ($resp->is_success) {
    my $message = $resp->decoded_content;
    print "Received reply:\n$message\n";
}
else {
    print "HTTP POST error code: ", $resp->code, "\n";
    print "HTTP POST error message: ", $resp->message, "\n";
}

__DATA__
<?xml version="1.0"?>
<data>
<customer-data>
  <customer>
    <first_name>Frank</first_name>
    <last_name>Sanbeans</last_name>
    <dob>3/10</dob>
    <email>frank@example.com</email>
  </customer>
  <customer>
    <first_name>Sandy</first_name>
    <last_name>Sanbeans</last_name>
    <dob>4/15</dob>
    <email>sandy@example.com</email>
  </customer>
</customer-data>
<supplier-data>
  <supplier>
    <name>Supplier 1</name>
    <address>Address 1</address>
    <tel-no>012345</tel-no>
  </supplier>
</supplier-data>
</data>