#!/usr/bin/perl
use SOAP::Lite;
 
$tab = SOAP::Lite
               -> service('http://url.wsdl','login'=> $login,'password'=> $passwd,'exception
s'=>'1');

 
print "$tab\n";
foreach my $info (@{$tab}) {
  print "$info\n";
}