#!/usr/bin/perl
use SOAP::Lite +trace;
$login='log';
$passwd='pass';
$domain='dom'

$tab = SOAP::Lite
       -> service('http://url.wsdl','login'=>$login,'password'=> $passwd,'exceptions'=>'1')
       ->getDomUsedQuota($domain);

 print "$tab\n";


##</code><code>##

 
<?
$login='votre_login';
$passwd='votre_mot_de_passe';
$domain='votre_domaine';
<code>
$client = new SoapClient('https://url.wsdl',array('login'=> $login,'password'=> $passwd,'exceptions'=>'1'));
$used_quota=$client->getDomUsedQuota($domain);
print "Le quota consommé est $used_quota <br>";
?>