#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common;


my $URL = "url.com";

# The xml_request
my $xml_req = "  <Row>
      <Address>H</Address>
      <Name>MUSTER/MAX</Name>
      <Age>34</Age>
    </Row>";

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

my $result = $ua->request(POST $URL,["form_param" => $xml_req]);  


print "Content-type: text/plain\n\n";
print $result->as_string();
print $result->content();