#!/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";