The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package SigDie;

use strict;

our $DIE;
$SIG{__DIE__} = sub { $DIE = $@ };

1;