# 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}};
      }
  }

##</code><code>##

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web