use strict;
use warnings;
use XML::Simple;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $server_endpoint = "http://localhost/cgi-bin/RnD/twig/twig_rcvr_server.cgi";

# set custom HTTP Request header fields
my $xml;
my $req = HTTP::Request->new(POST => $server_endpoint);
$req->header('content-type' => 'text/xml');


# for descending order use
# my @files = reverse(glob("*.xml"));


my @files = (glob("*.xml"));
print "@files\n";

my $test;

foreach $test(@files){
	#print "this element: $test \n ";

open FILE, $test or die $!;

while(<FILE>){

	$xml .= $_;
	#print $xml; 

}
}
$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";
}