View file File name : SigDie.pm Content :package SigDie; use strict; our $DIE; $SIG{__DIE__} = sub { $DIE = $@ }; 1;