my $file='T:\temp\temp.txt';

##</code><code>##

my $file="T:\\temp\\temp.txt";

##</code><code>##

tie my @lines, 'Tie::File', $file or die 'tie failed';

##</code><code>##

tie my @lines, 'Tie::File', "$file" or die 'tie failed';