use EntrepriseInterfaces::entreprisesService::entreprisesPort;
use EntrepriseElements::IdentiteRequest;
my $service = EntrepriseInterfaces::entreprisesService::entreprisesPort->new();
my $params = EntrepriseElements::IdentiteRequest->new({
	 siret => '34838984200017',
});
my $result = $service->getIdentite($params);
die $result if not $result;
print $result;