[Dan]

Я пошел на irc и мне там посовевали способ получше

Код:

 open(RE, "$counter_file");
 @indata = <RE>;
 close(RE);
 open(SAV, ">$counter_file");
 foreach $temp (@indata)
 {
        $counterzapis++;
        if ($counterzapis<=5)
        {
                print SAV $temp;
        }
 }