if davorg permits me to quote Data munging with Perl, chapter 9, page 165.

#!/usr/bin/perl -w
use strict;
use HTML::Parser;
use LWP::Simple;

sub start {
 my ($tag, $attr, $attrseq) = @_;

 print "Found $tag\n";
 foreach(@$attrseq) {
  print " [$_ -> $attr->{$_}]\n";
 }
}

my $h = HTML::Parser->new(start_h => [\&start,'tagname, attr, attrseq'
+]);
my $page = get(shift);
$h->parse($page);
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.