Select Code to Download

$new_parent->push_content( $img->clone );
$img->replace_with($ new_parent );

#!/usr/bin/perl --
use strict; use warnings;
use HTML::TreeBuilder;
...
print $root->as_HTML;
$root->delete;    # erase this tree because we're done with it