#!/perl/bin/perl
use warnings;
use strict;
print <<'HEADER';
Content-Type: text/xml
HEADER
print( "\n\n" );
open( NAMES, "names.txt" ) or die ( "Error opening names.txt" );
while ( ) {
chomp;
# escape any characters not allowed in XML content.
s/&/&/;
s/ s/>/>/;
s/"/"/;
s/'/'/;
my ( $last, $first ) = split( /, / );
print( " \n",
" $last \n",
" $first \n",
" \n\n" );
}
close( NAMES );
print( " \n" );
#File: names.txt
# Jack, John
# Jason, Sue
# Jodd, Bob