use strict;
use LWP::UserAgent;
use Data::Dumper;

my $url="http://10.x.x.x/login.pl";

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request POST => $url;
$request->content_type('text/xml');

my $page = $ua->request($request);

if ($page->is_success) {
    print $page->content;
} else {
    print $page->error_as_HTML;
}