Select Code to Download

use HTML::TreeBuilder        qw( );
use HTML::TreeBuilder::XPath qw( );
...
}

$tree->delete();

use HTML::Entities qw( encode_entities );

...
      foreach @children;
   print("\n");
...