#!/usr/bin/perl

use strict;
use XML::Simple;

        use LWP::UserAgent;

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

        my $server_endpoint = "http://localhost/cgi-bin/stackoverflow_in.cgi";   


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

my $xml = XMLin('parsetest.xml',forcearray => 1);

my $customer;

foreach my $customer(@{$xml->{customer}}){
	print "$customer->{first_name}->[0]\n";
	print "$customer->{last_name}->[0]\n";
	print "$customer->{dob}->[0]\n";
	print "$customer->{email}->[0]\n";
}
# add POST data to HTTP request body
my $post_data1 = $customer->{first_name}->[0];
my $post_data2 = $customer->{last_name}->[0];
my $post_data3 = $customer->{dob}->[0];
my $post_data4 = $customer->{email}->[0];


$req->content($post_data1,$post_data2,$post_data3,$post_data4);

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