🚀 go-pugleaf

Witam.
Chciałbym za pomoca skryptu Perla wywołać funkcje Allegro WebApi, sluzaca do 
wyszukiwanie przedmiotow na aukcjach Allegro. Problem w tym, ze funkcja 
odpowiedzialna za to (tj. doSearch()) nie wyświetla żadnych informacji 
(wyników, błędów). Podejrzewam, ze gdzies po drodze do niej popelnilem 
bledy. Z gory dziekuje za wszelka pomoc i dolaczam swoj kod.

use strict;
use SOAP::Lite;
use Data::Dumper;
use DBI;

#dane dostepowe do Allegro API
my $CONFIG_LOGIN = "...";
my $CONFIG_PASSWORD = "...";
my $CONFIG_APIKEY ="...";
my $CONFIG_COUNTRY = "1";
my $CONFIG_WSDL ="http://localhost/allegro.wsdl";

my $Klient = SOAP::Lite->service($CONFIG_WSDL);
my @wersja = $Klient->doQuerySysStatus(1, $CONFIG_COUNTRY, $CONFIG_APIKEY);

my @sesja = $Klient->doLogin($CONFIG_LOGIN, $CONFIG_PASSWORD, 
$CONFIG_COUNTRY, $CONFIG_APIKEY, $wersja['ver-key']);

my %parametry = (
  'search-string'    => 'slowo',
  'search-options'    => '1',
  'search-order'    => '2',
  'search-order-type'    => '0',
  'search-country'    => '0',
  'search-category'    => '0',
  'search-city'    => '',
  'search-state'    => '',
  'search-price-from'    => '0',
  'search-price-to'    => '300',
  'search-offset'    => '0',
  'search-limit'    => '50'
);

my @wynik = $Klient->doSearch($sesja['session-handle-part'],%parametry);
print @wynik