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