$SIG{__DIE__} = \&log_die; sub log_die { print @_; }