package SigDie;
use strict;
our $DIE;
$SIG{__DIE__} = sub { $DIE = $@ };
1;