use SOAP::Lite trace=>'debug';
use Data::Dumper;
use strict;
    my $wsdl = #wsdl address
    my $user, $pwd #variable definition
    my $service = SOAP::Lite->service($wsdl);

    my $sid = $service->login($user, $pw);
    
    my $method = SOAP::Data->name('doSelect');

    my @params = (	SOAP::Data->name("sid" => $sid),
                	SOAP::Data->name("objectType" => 'pcat'),
	                SOAP::Data->name("whereClause" => "sym like 'Hosted%'"),
	                SOAP::Data->name("maxRows" => "1"),
                	# what values to get back, more could be added.
	                SOAP::Data->name("attributes" =>SOAP::Data->value(
                    				SOAP::Data->name("string" => "sym"),
                                        	SOAP::Data->name("string" => 'description')
	                    )
                    )
				 );

   	#print "dumper: ".Dumper(@params)."\n";
	my $result = $service->call($method => @params);

	if ($result->fault){
		print "[".$result->faultcode."] [".$result->faultstring."] [".$result->faultdetail."]";
	} else {
    	print $result->result;
    }