#! /usr/bin/perl
use warnings;
use strict;
use Tie::File;

use constant {
  MAX_LINES => 10,
};

my $logfile = '/tmp/logfile';

# binde datei an array; legt datei an, wenn nicht existent
tie my @file, 'Tie::File', $logfile
  or die "$logfile: $!\n";

# generiere log eintraege
for my $i ( 1 .. 20 ) {
    # entferne ersten eintrag, wenn maximum erreicht
    shift @file if MAX_LINES == @file;

    # fuege eintrag hinten an
    push @file, sprintf "meine nachricht: %02d\n", $i;
}