$VAR1 = { 'type' => 'S', # or T|E|C|D|PI
          'tag' => 'html',
          'attr' => {},
          'attrseq' => [],
          'text' => '<HTML>',
        };

##</code><code>##

my $token = $parser->get_hashtoken();
if($token->{type} eq 'S') {
    if(exists $token->{attrs}->{href}) {
        print Data::Dumper::DumperX($token);
    }
}