Select Code to Download

#!/bin/perl -w
use strict;
use XML::Parser;
...
  <elt id="elt3"><child_1/><child>child 2</child></elt>
  <elt id="elt4"><child_1/></elt>
</doc>

#!/bin/perl -w
use strict;
use XML::Twig;
...
  <elt id="elt3"><child_1/><child>child 2</child></elt>
  <elt id="elt4"><child_1/></elt>
</doc>

#!/bin/perl -n -w
use strict;

...
  { print join "\n", @results;
    print "\n";
  }

#!/bin/perl -w
use strict;

...
  <elt id="elt4"><child_1/></elt>
</doc>