##

use strict;
   
my $html;

while () {
        $html .= $_;
}

my $tree = HTML::TreeBuilder->new();

$tree->parse($html);

print $tree->as_HTML();


__DATA__