You'll never get this to work right. Consider use forks or building some long running worker threads. Ultimately you'll never really be happy with threads in Perl (just a guess). Some people use them. Another option is Coro. Might be better.