$SIG{__DIE__} = sub ( croak(shift) );