Select Code to Download

use warnings;
use strict;
...
}
my ($root) = $xp->findnodes('/');
print $root->toString, "\n";

use XML::Twig;
open my $ofh, '>', \my $outxml or die $!;
...
$twig->parse($xml);
close $ofh;
print $outxml;