9 lines
360 B
Plaintext
9 lines
360 B
Plaintext
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; |