use SOAP::Lite;
use HTML::Entities;
$URI='urn:nci-gene-service';
$PROXY_PATH='/soap/servlet/rpcrouter';
my %searchRec=();
$server = "cabio.nci.nih.gov";
$port = "80";
$method = "getGenes";
$searchRec{"symbol"} = "pTEN";
$s = SOAP::Lite
 -> uri($URI)
 -> proxy("http://$server:$port$PROXY_PATH");

$som = $s->$method(SOAP::Data->type(map => \%searchRec));

print $som, "\n";
