use strict;
use Spreadsheet::ParseExcel;
use XML::Writer;
use LWP::UserAgent;
use Data::Dumper;


my $browser = LWP::UserAgent->new;
my $response = $browser->post('http://localhost:8180/request');
my $writer = XML::Writer->new(
        OUTPUT      => $response,
        NEWLINES    => 0,
        DATA_MODE   => 1,
        DATA_INDENT => 2,
);