I would like to test it, but for that I'd need to insert it into my module. This endeavour in turn is hampered by the fact that i just plain cannot tell what's going on after: my $Q = new Thread::Queue;
Seriously, it looks like you wrote that with the intent to make it as unreadable as possible.