Select Code to Download

my @threads = map threads->new( \&processrefsthread, $Q ), 1 .. $T;

sub threadProc {
    my $code = shift;
...
}

my @threads = map threads->new( \&threadProc, \&processrefsthread, $Q 
+), 1 .. $T;

sub processrefsthread {
    my $Q = shift;
...
    }
    tprint 'Ending';
}

C:\test>1056140-buk
Useless use of division (/) in void context at C:\test\1056140-buk.p
...
; retrying
[1] Starting
...

my $Q - ...;

...
        ...
    }
}