use strict;
use warnings;
use Data::TreeDumper;

use Log::Dispatch::FileRotate;

my $file = Log::Dispatch::FileRotate->new(
   name      => 'file1',
   min_level => 'info',
   filename  => 'Somefile.log',
   mode      => 'append' ,
   size      => 10,
   max       => 6,
);

print DumpTree($file);