# !perl

use strict;
use warnings;

my $dataxml = 'z:\tla\scripts\emmaparser\index.xml';
my $xmlfile;

open($xmlfile,'<',$dataxml) or die $!;

while(my $line = <$xmlfile>){
    print $line;
}

close ($xmlfile);