Select Code to Download

#!c:\perl\bin\perl.exe

...
$writer->endTag("text");    
$writer->end();
$output->close();

<?xml version="1.0"?>
<text><br />
<lineno>1</lineno><line>STAVE I:  MARLEY'S GHOST</line><br />
<lineno>2</lineno><line></line><br />
<lineno>3</lineno><line>MARLEY was dead: to begin with. There is no do
+ubt</line>