Select Code to Download

my ($dl) = $tree->look_down('_tag', 'dl');

my $dl = $tree->look_down('_tag', 'dl');

#!/usr/bin/perl -W
use strict;
...
print $tree->as_HTML; # or use HTML::PrettyPrinter

$tree = $tree->delete();