use Text::CSV_XS;
use XML::Twig;
my $csv = Text::CSV_XS->new({'sep_char'    => "|",}, );
my $twig = XML::Twig->new( );
twig_handlers => {'EDI_DC40' => \&process_EDI_DC40,}, );          
$twig->parsefile( $ARGV[0] );
sub process_EDI_DC40 {
my( $twig, $thingy ) = @_;
my @values = map { $thingy->first_child( $_ )->text }
qw(DOCNUM MESTYP SNDPRN RCVPOR RCVPRN);
$csv->say( *STDOUT, \@values );                                                                           }