Select Code to Download

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

my @foo = $html->look_down(
    _tag => "body",
...
    print $output_html;
    last ;
}