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