Select Code to Download

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.