Select Code to Download

#!/usr/bin/perl

...
                           text_h  => [\&text,  "dtext"] );

$p->parse_file("test.html");

<table id="maintable" width="300">
<tr>
...
<td width="100">more content</td>
</tr>
</table>

sub descend_htmltree {
  my $node = shift;
...

  return $htmloutput;
}