use EntrepriseInterfaces::EntrepriseService::EntreprisePort;
my $service = EntrepriseInterfaces::EntrepriseService::EntreprisePort->new();
$service->proxy('http://login:hash@webservice.sd.lan/entreprise/v0.2');
my $params = EntrepriseElements::IdentiteRequest->new({
	 siret => '552144503',
});
my $result = $service->getIdentite($params);
die $result if not $result;
print $result;