< snip >

sub logroll {

   my $logs = new Logfile::Rotate(
       File    => $log,
       Count   => 15,
       Gzip    => 'lib',
       Gzip    => '/usr/bin/gzip',
       Dir     => $logdir,
       Flock   => 'yes',
       Persist => 'yes'
    ) ;
    $logs->rotate() ;
}