use Log::Dispatch::FileRotate;


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

$file->log( level => 'info', message => "Module Testing\n");
[download]

Sample Code using Log::Dispatch::FileRotate module, its print the message into the file not appending its writing the same message in 6 files namely ree.log, ree.log.1,ree.log.2,ree.log.3,ree.log.4,ree.log.5