my @retlinks;
    if ($res->is_success) {
        $self->parser->parse($res->content);
        my @links = $self->parser->links;
        my $linkarray;
        foreach $linkarray (@links){
                my @element = @$linkarray;
                my $elt_type = shift @element;

                while(@element){
                        my ($attr_name, $attr_val) = splice(@element, 0, 2);
                        if($elt_type eq 'a' && $attr_name eq 'href'){
                                unshift(@retlinks, url($attr_val, $res->base)->abs);
                        }

                }


        }
    }