Здравствуйте, столкнулся с посылкой формы на сервер из Perl
и ничего не работает, кто знает, подскажите пожалуйста.

Вопрос в том, что форма на сервер посылается отлично, но нужно
сначало пройти идентификацию, получить Cookie, а затем используя эти куки послать другую форму с данными.

Только и всего, вроде всё просто, а не работает.

Вот мой код:


$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave => 1));

$url_send_password = "****";
$request = POST($url_send_password, Content => ['AuthPhase' => '1', 'REQUESTED_FROM' => '/', 'REQUESTED_BY' => 'GET', 'catalogue' => '1', 'sub' => '122', 'cc' => '', 'AUTH_USER' => '***', 'AUTH_PW' => '***'], Referer => $url_send_password);
$response = $ua->request ($request);
$ua->cookie_jar->extract_cookies($response); # выбираем куки из ответа сервера

$url_add_transport = "***";
$request = POST($url_add_transport, Content => ['cc' => '210', ...], Referer => $url_add_transport);
$ua->cookie_jar->add_cookie_header($request);
$response = $ua->request ($request);

Поясните пожалуйста разницу между формами
$ua->cookie_jar->add_cookie_header($request);

и

$cookie_jar->add_cookie_header($request);

Нашёл примеры в Интернет, есть оба варианта, но моих знаний не хватает понять, почему так.

Вроде если обьект $ua - тогда правильно, но используют и $cookie_jar или это тоже самое?

вообще вроде LWP должна всё сама делать.

Подскажите, пожалуйста, как правильно сделать.

Пожалуйста, если у кого есть рабочий участок этого кода, пишите мне на email mail@stolet.com могу оплатить Ваши хлопоты.