perl - <<'__EOP__'
   use HTML::TreeBuilder;
   print($HTML::TreeBuilder::VERSION, "\n");
   print($INC{'HTML/TreeBuilder.pm'}, "\n");
   my $tree = HTML::TreeBuilder->new;
   print($tree, "\n");
   $tree->parse_file('file.html');
   print($tree, "\n");
   print('new_from_content: ',
      $::{'HTML::'}{'TreeBuilder::'}{'new_from_content'}?'yes':'no',
      "\n");
   print('stunt:            ',
      $::{'HTML::'}{'TreeBuilder::'}{'stunt'           }?'yes':'no',
      "\n");
   print('disembowel:       ',
      $::{'HTML::'}{'TreeBuilder::'}{'disembowel'      }?'yes':'no',
      "\n");
__EOP__