Select Code to Download

sub wrap {
  my $tree = HTML::TreeBuilder->new_from_content(shift);
...
  }
  return $tree->as_HTML;
}