Select Code to Download

# 'manager' loggin thread: communication queues initialization
# and thread creation
...
$mgr_req_q->enqueue("die");
$mgr_id->join();
exit(0);

# worker thread function
#
...
        }
    }
}

elsif ($msg =~ /^open\s(.*)$/)
{
...
    $mgr_state = "running";
    broadcast_to_workers("run");
}