# start of ParseLink
  {
    package ParseLink;
    our @ISA = qw(HTML::Parser);

    # called by parse
    sub start
      {
        my ($this, $tag, $attr) = @_;

        if ($tag eq "a")
        {
          # You might want to check for name="#anchor" links
          # here ...
          $this->{links}{$attr->{href}} = "(no text given)";
          $this->{curr_link} = $attr->{href};
          $this->{nesting_a}++;
        }
      }

    sub end
      {
        my ($this, $tag, $attr) = @_;

        if ($tag eq "a")
        {
          $this->{nesting_a}--;
          $this->{links}{$this->{curr_link}} = $this->{curr_text} 
            if $this->{curr_text};
        }
      }

    sub text {
      my ($this, $text) = @_;
      $this->{curr_text} .= $text if $this->{nesting_a} > 0;
    };

    sub get_links
      {
        my $this = shift;
        return keys %{$this->{links}};
      }
  }