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

use strict;
use warnings;

use XML::Writer;
use IO::File;

my $write;
my $file = "C:\\WebRoot\\dickens\\dicktest.txt";
my @outputxml;
my $output = new IO::File(">c:\\generate.xml");
my $count;

my $writer = new XML::Writer(OUTPUT => $output);

open (IN, $file) || die "$file not found\n";
@outputxml = <IN>;
close (IN);
chomp @outputxml;

$writer->xmlDecl();
$writer ->startTag("text");
foreach $write ( @outputxml) {
	$count++;
	$writer ->startTag("lineno");
	$writer->characters($count);
	$writer->endTag("lineno");
	$writer ->startTag("line");
	$writer->characters($write);
	$writer->endTag("line");
	}
$writer->endTag("text");	
$writer->end();
$output->close();