Select Code to Download

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);