Help for this page
sub sigint { die "Dying."; } $SIG{INT} = \&sigint;
$ perl test.pl processing sleep(0) in thread 1 ... Dying. at test.pl line 25. END block executed A thread exited while 3 threads were running.