1*b39c5158Smillertpackage SigDie; 2*b39c5158Smillert 3*b39c5158Smillertuse strict; 4*b39c5158Smillert 5*b39c5158Smillertour $DIE; 6*b39c5158Smillert$SIG{__DIE__} = sub { $DIE = $@ }; 7*b39c5158Smillert 8*b39c5158Smillert1; 9