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();
__DATA__
My first HTML document
Hello world!