use SOAP::Lite ; my $soap = SOAP::Lite->new( proxy => 'http://localhost:1982/soap', default_ns => 'urn:condor' ); my $som = $soap->call( "getVersionString" ); die $som->fault->{ faultstring } if ($som->fault); my %result = %{$som->result}; print "$result{'message'}\n"; my $som = $soap->call( "getPlatformString" ); die $som->fault->{ faultstring } if ($som->fault); my %result = %{$som->result}; print "$result{'message'}\n";