use SOAP::Lite;

print SOAP::Lite->service('http://localhost/SiebelSOAP/SiebelPhysician.xsd')
  ->FindByRCN(
    SOAP::Data->type('complex')->name('FindByRCNRequest')->value(
        \SOAP::Data->value(
            SOAP::Data->type('string')->name('federativeUnity')->value('PR'),
            SOAP::Data->type('integer')->name('regionalConcilNumber')
              ->value(11778)
        )
    )
  );