Select Code to Download

#!/usr/bin/perl -w
use strict;
...
tie my @lines, 'Tie::File', 'T:\temp.txt' or die 'tie failed';
unshift @lines, "$count";
untie @lines;

#!/usr/bin/perl -w
use strict;
...
tie my @lines, 'Tie::File', "$file" or die 'tie failed';
unshift @lines, "$count";
untie @lines;

tie failed at P:\test405.pl line 9

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