Select Code to Download

my $dom = Mojo::DOM->new->parse(scalar do { local $/; <STDIN> });

use XML::Twig;
use IO::Handle;
...
  ...
  $elem->purge;  # don't want to print the original text 
}