cookie в LWP::UserAgent

[Tachyon1]

Здравствуйте. Я уже прочитал на cpan.org описания HTTP::Cookie, но то ли лыжи не едут, то ли я чего-то не понял. Прошу помочь.

Есть хэш с несколькими парами имя-значение, который нужно оформить в виде куки, строка с данными формы и параметры для хедера (referer, useragent). Нужно собрать все это вместе и отправить методом POST.

С WWW::Curl это делается без проблем, но медленно. А вот приделать куки к запросу в LWP::UserAgent у меня так и не получилось, попробовал все примеры, которые увидел в гугле.

Пожалуйста, подскажите, как правильно использовать cookie_jar с LWP::UserAgent?

[netbot]

my $cookie=HTTP::Cookies->new(file => undef, autosave=>1, ignore_discard=>1, hide_cookie2=>0);
my $ua=new LWP::UserAgent( ssl_opts => { verify_hostname => 0, SSL_version => 'TLSv12' }, timeout=>30, agent=>'Mozilla/5.0 (Windows NT 6.3; rv:36.0) Gecko/20100101 Firefox/36.0', show_progress=>0 ); #TLSv12
$ua->cookie_jar($cookie);
$cookie->set_cookie(0, $key, $value, '/', 'site.ru', undef, 0,0,30000,0,());
my $resp=$ua->request(POST $url, [name1=>'value1', name2=>'value2']);

[Tachyon1]

Спасибо. Почти заработало. Остался вопрос, как в запрос засунуть ДВЕ (или больше) пары куки ключ-значение?
Два последовательных вызова $cookie->set_cookie() не работают.

[netbot]

Сообщение от Tachyon1

Два последовательных вызова $cookie->set_cookie() не работают.

Что именно «не работает»? Покажи результат неработания и код