use SOAP::Lite;
my $soap = SOAP::Lite->service( $wsdl_url );
$soap->transport()->credentials( $hostid, $realm, $user, $pass );