use strict;
use SOAP::Lite;
my $soap = new SOAP::Lite;
$soap->proxy('http://xxxxxxx/MRcgi/MRWebServices.pl');
$soap->uri('http://xxxxxxx/MRWebServices');
my $soapenv = $soap->MRWebServices__createIssue('User','Password','',{projectID => 1,title => 'New Issue',priorityNumber => 1,status => 'Open',description => "New Issue"});
my $result = $soapenv->result;
print "$result\n";