#Using the same variables above for data:
use LWP::UserAgent;
		
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/8.0"); # pretend we are very capable browser
$ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });
push @{$ua->requests_redirectable}, 'POST';
my $req = HTTP::Request->new(POST => 'https://'.$server.$path);
$req->content_type('application/x-www-form-urlencoded');
$req->content('mname=GetXML&xml='.$_xmlToSend.'&submit=Choice');
$req->referer('https://www.OurDomainHere.net/index.cgi?pg=BackOffice');
 # Pass request to the user agent and get a response back
my $res = $ua->request($req);
if ($res->is_success) {
	$page=$res->content;
}
# Now go down to where xml::bare parses data.... and die to check if it works...