Select Code to Download

#!/usr/bin/perl
use threads;

...

# my $q = threads->create(\&something_1);
something_1;

Perl exited with active threads:
    9 running and unjoined
    0 finished and unjoined
    0 running and detached