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