my $body = $root->find('body');
print $body->as_HTML;

##</code><code>##

my @foo = $html->look_down(
	_tag => "body",
) ;
foreach( @foo ) {
	my $output_html = $_->as_HTML(undef,undef,{});
	print $output_html;
	last ;
}