#!/usr/bin/perl

use strict;
use warnings;
use HTML::Treebuilder;

use Data::Dumper;
$Data::Dumper::Indent = 1;

my $file_name = q{monk.html};

my $t = HTML::TreeBuilder->new;
$t->parse_file($file_name);

my @meta = $t->look_down(
	q{_tag}, q{meta},
);

print q{-} x 10, qq{\n};
print qq{meta\n};
print q{-} x 10, qq{\n};

for my $ele (@meta){
	my %attr = $ele->all_external_attr;
	print Dumper \%attr;
	print q{-} x 10, qq{\n};
}


my @links = $t->look_down(
	q{_tag}, q{a},
);

print q{-} x 10, qq{\n};
print qq{links\n};
print q{-} x 10, qq{\n};

for my $ele (@links){
	print $ele->as_trimmed_text, qq{\n};
	my %attr = $ele->all_external_attr;
	print Dumper \%attr;
	print q{-} x 10, qq{\n};
}

my @areas = $t->look_down(
	q{_tag}, q{area},
);

print q{-} x 10, qq{\n};
print qq{areas\n};
print q{-} x 10, qq{\n};

for my $ele (@areas){
	my %attr = $ele->all_external_attr;
	print Dumper \%attr;
	print q{-} x 10, qq{\n};
}