use SOAP::Lite;
  $service = SOAP::Lite -> uri('urn:QuotationService')
               -> proxy('http://localhost:8080/soap/servlet/rpcrouter');
  $result = $service -> getAllQuotations() -> result();
  $i = -1;
  while ( ref $result->[++$i] )
  {
    print "$result->[$i]{'text'} ($result->[$i]{'author'})\n";
  }