$SIG{'__DIE__'} = sub{ write_to_log('FATAL! '.join(' ', @_)); die; };