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

	my $connId;

	# The xml_request
	my $xml_req = '<?xml version="1.0" encoding ="UTF-8"?><!DOCTYPE drl SYSTEM "http://172.XX.XXX.XXX:40500/lab/v1/api/connectionRequest.dtd" ><drl mode="normal" connectionid="null"><openconnection username="admin" password="admin"/></drl>';

	my $ua = LWP::UserAgent->new();
	my $response = $ua->post("http://172.XX.XXX.XXX:40500/xmlApiServlet", Content => $xml_req);
	if ($response->is_success) {
	print $response->decoded_content;
	$response->decoded_content =~ m/drl connectionid\=\"(.*?)\".*?\>/;
	$connId = $1;
	}
	else {
	die $response->status_line;
	}