Select Code to Download

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

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

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

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