lwp parallel и куки

[perl6]

Приветствую. Имеем код:

Код:

#!/usr/bin/perl -w

$| = 1;

use LWP::Parallel::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use utf8;

my $reqs = [  
     HTTP::Request->new('GET', $url1, [$headers1] ),
     HTTP::Request->new('GET', $url2, [$headers2] ),
];

my $pua = LWP::Parallel::UserAgent->new();
  $pua->in_order  (1);
  $pua->duplicates(0);  
  $pua->timeout   (2);  
  $pua->redirect  (1);
  my $cookie_jar = HTTP::Cookies ->new( hide_cookie2 => 1 );
  $pua ->cookie_jar($cookie_jar);

  foreach my $req (@$reqs) {
    #print "Registering '".$req->url."'\n";
    if ( my $res = $pua->register ($req) ) { 
        #print STDERR $res->error_as_HTML; 
    }  
  }

  my $entries = $pua->wait();
  
  foreach (keys %$entries) {
    my $res = $entries->{$_}->response;
	
       if ($res->decoded_content =~ m/regexp/) {

       $str = $1;

      $pua->get ($str) # а где куки???
	   	   
  }}

Никак не пойму, как заюзать кукисы.

[RXL]

Попробуй аналогично LWP::UserAgent.

[perl6]

Попробуй аналогично LWP::UserAgent.

Так и делаю, добавил поддержку куков в броузер $pua->cookie_jar(HTTP::Cookies->new(hide_cookie2 => 1));
А потом, когда пытаюсь послать запрос $pua->get($str), кук нет.