Select Code to Download

            $thr = threads->new(\&initiator, @list5);
            $thr = threads->detach;

            $thr = threads->new(\&initiator, @list5);
            $thr->detach;

$thr1 = threads->new(\&manager);

while (1){sleep(1);}

manager();