my $archive_queue = Thread::Conveyor -> new ( { maxboxes => 5000, minboxes => 4000, optimize => 'memory', } ); my $compress_log_thread_1 = new threads (\&compress_logs); my $compress_log_thread_2 = new threads (\&compress_logs); my $compress_log_thread_3 = new threads (\&compress_logs); my $compress_log_thread_4 = new threads (\&compress_logs);