use SOAP::Lite;
print "Content-type: text/html\n\n";
#---------------------- Please enter your data 
my $token = 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';
my $link ='xxxxxxxxxxxxxxxxx';
my $msgid = 'xxxx';  #transaction ID

#-----------------------------------------------------

my $start = SOAP::Lite
	->uri($link)
	->on_action( sub { join '/', $link, $_[1] } ) 
	->proxy('https://xxxxxxxxxxxxxxxx?WSDL');
	
my $response = $start
	->call(SOAP::Data->name('ResendMsg')->attr({xmlns => 'xxxxxxxxxxxxxx/'}) =>
	SOAP::Data->name("token" => $token),
	SOAP::Data->name("TransactionID" => $msgid)
	);


if ( $response->fault ) {
    print $response->faultstring . "\n";
	} 
	
print "Result: ".$response->valueof('//ResendMsgRes')."<br/>"; #If successful, returns the transactionID