#!c:/perl/bin
use SOAP::Lite+trace => 'all';
use XML::Simple;
use Data::Dumper;

system("cls");

$method	= 'GetCreds';
$ep		= 'http://website.com/services/svrLogin.asmx';
$uri	= 'http://tempuri.org/ControlNET/svrLogin';

$xml = '<Username>username</Username>
      <Password>********(hidden)**********</Password>';

$soap = SOAP::Lite
-> proxy ($ep)
-> uri($uri)
-> on_action( sub { join '', $uri, $_[1] } )
-> readable(1)
-> call ($method => SOAP::Data->type('xml' => $xml));

print Dumper($soap);