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