Help for this page
use Thread::Semaphore qw( ); use threads::shared qw( ); ... sema_down(\$line_semi, 1); ... sema_up(\$line_semi, 1);
use Thread::Semaphore qw( ); use threads::shared qw( is_shared ); ... $line_semi->down(1); ... $line_semi->up(1);