#!/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) # а где куки??? }}