use strict;
use warnings;
use HTML::TreeBuilder;
my $data = do {local $/ = ""; };
my $tree = HTML::TreeBuilder->new;
$tree->store_comments(1);
$tree->store_declarations(1);
$tree->parse ($data);
$tree->eof ();
print $tree->as_HTML(undef, ' ');
__DATA__