# !perl

use strict;
use warnings;

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

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

print $xmlfile;

close ($xmlfile);