Select Code to Download

<table>
...
   </tr>

 </table>

use HTML::Element::Replacer;
...

warn $tree->as_HTML(undef, ' ');

[tbrannon@devel tables]$ spkg.pl --base_pkg=Base file.html
...
file.html compiled to package file

package Base;

...
1;