Select Code to Download

C:\Users\perluser09\Desktop\Perl>perl lock.pl 
...
...
        0 running and unjoined
        2 finished and unjoined
        0 running and detached

C:\Users\perluser09\Desktop\Perl>perl lock.pl > threadinfo.txt
....
...
        0 running and unjoined
        2 finished and unjoined
        0 running and detached

    #create the array with the ip:OID
    use warnings;
...
    }; 
    $thr1->join; 
    $thr2->join;