use Log::Dispatch::FileRotate;

my $file = Log::Dispatch::FileRotate->new(
    name      => 'my_rotator',
    min_level => 'info',
    filename  => 'somefile.log',
    mode      => 'append' ,
    size      => 1024*1024,
    max       => 6);

while(<>) {
    $file->log(level => 'info', message => $_);
}