while(defined(my $t = $p->get_token())){
        print(TEMPO $t->as_is), next
            unless $t->is_tag('a');

        my $attr = $t->return_attr;
        print(
            "\nHREF TAG-->[",
            ++$hrefCount,
            "]-->",
           $attr->{href},
           "\n\n"
        ) if exists $attr->{href};
    }