Can't start threads inside a BEGIN{} block

Select or download this

my $num_threads = 2;
my $thr = [];
...
}

print "done\n";

Select or download this

BEGIN {

Select or download this

$ii=0, started threads=SCALAR(0x14d271c)threads=SCALAR(0x14d271c)=thre
+ads=SCALAR(0x14d271c)
hello
$ii=1, started threads=SCALAR(0x14d273c)threads=SCALAR(0x14d273c)=thre
+ads=SCALAR(0x14d273c)
hello
done

Select Code to Download