Select Code to Download

    if( $self->{'Flock'} eq 'yes'){
        $self->{'Fh'} = new IO::File "$self->{'File'}", O_WRONLY|O_EXC
+L;
...
        unless defined($self->{'Fh'});
        flock($self->{'Fh'},LOCK_EX);
    }

my $roll1 = @_;

my ($roll1) = @_;

sub _logroll {
    eval 'use Compress::Zlib';
...
        $rotator->rotate();
    }
}