#!/usr/bin/perl
use strict;
use warnings;
use FindBin '$Bin';
use lib $Bin;
use Log::Log4perl::Appender::File::fixed_size;

my $app = Log::Log4perl::Appender::File::fixed_size->new(
  filename  => 'file.log',
  max_lines => 10,
  header_text=>'Nur ein Test!',
);

for(0..100)
{
  $app->log(message => "Log me (I'm message $_ from ".localtime()." )\n");
}