Select Code to Download

/home/kal/assemble.xml
/home/tom/Venice.xml

use Text::CSV_XS;
use XML::Twig;
...
my @values = map { $thingy->first_child( $_ )->text }
qw(DOCNUM MESTYP SNDPRN RCVPOR RCVPRN);
$csv->say( *STDOUT, \@values );                                       
+                                    }