5 my $tree = HTML::TreeBuilder->new; # empty tree
7 $tree->parse_file($opt_f);
10 foreach my $c ($x->content_list) {
11 next if (ref($c) && $c->tag() eq "~comment");
12 print "$c\n" unless ref($c);
13 if (ref($c) && $c->attr('alt')) {
14 print $c->attr('alt')."\n";
16 if (ref($c) && $c->tag() eq 'meta') {
17 print $c->attr('content')."\n ";
19 give_id($c) if ref $c; # ignore text nodes
23 $tree = $tree->delete;