Your second call to HTTP::Request->new() is failing because you pass in too many arguments. In the first call, the "sub" is not passed to HTTP::Request->new(). Check your parentheses.

Better yet, when you call a method that may fail, don't pass the return value off to another method without checking it first:

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

        - tye (but my friends call me "Tye")