Select Code to Download

use threads;
use threads::shared;
...

threads->create($_) for qw( set_positive set_zero printer);
$_->join for threads->list;