#!/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;

##</code><code>##

#!/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;

##</code><code>##

tie failed at P:\test405.pl line 9

##</code><code>##

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