#!/usr/bin/perl -w use strict; my $count=8; use Tie::File; tie my @lines, 'Tie::File', 'T:\temp.txt' or die 'tie failed'; unshift @lines, "$count"; untie @lines; #### #!/usr/bin/perl -w use strict; my $file="T:/temp/temp.txt"; my $count=8; use Tie::File; 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';