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


my $url_of_wsdl = "http://[SERVER]:8080/inf-process-engine/soap?wsdl";
my $username 	= "musteruser";
my $password 	= "4711";

my $message = "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:soap='http://soap.service.engine.inf.com/'><soapenv:Header/><soapenv:Body><soap:instantiate><processUri>API_Test.ipd</processUri></soap:instantiate></soapenv:Body></soapenv:Envelope>";			   
	   
		   
my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => $url_of_wsdl);
$request->authorization_basic( "$username", "$password" );
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);
print $response->as_string;