HTML::Parser practice

#!/usr/bin/env perl
use strict;
use warnings;
use HTML::Parser;
use Data::Dumper;

my $p = HTML::Parser->new(
    api_version => 3,
    start_h => [\&start, 'self, tagname, attr, text'],
    end_h => [\&end, 'self, tagname, attr, text'],
    marked_sections => 1,
);
$p->parse_file('hoge.html');

sub start {
    warn 'start';
    warn Dumper \@_;
}

sub end {
    warn 'end';
    warn Dumper \@_;
}