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