my $req= HTTP::Request->new( GET=>$all_links )
        or  die "Can't request all links";
    $response = $Pua->request( $req,
        sub {$parsor_agin->parse($_[0])}
    );