Select Code to Download

my $html = HTML::TreeBuilder->new_from_content("$text") || die "$@\n";
sub to_text {
...
 }
}
&to_text($html);