- or download this
use strict;
...
print "Got shared signal from slave thread\n";
$pool->shutdown();
- or download this
Starting the Thread::Pool
- or download this
Starting the Thread::Pool
Thread::Pool started
...
Waiting for the slave thread to set the shared signal
Sleeping and waiting for signal from slave thread
Got shared signal from slave thread