$ perl test.pl
processing sleep(0) in thread 1
processing sleep(1) in thread 1
processing sleep(3) in thread 3
processing sleep(0) in thread 4
processing sleep(2) in thread 4
processing sleep(4) in thread 2
processing sleep(0) in thread 1
processing sleep(3) in thread 1
processing sleep(4) in thread 4
processing sleep(5) in thread 3
<C-c>
Dying. at test.pl line 25.
END block executed
A thread exited while 3 threads were running.