{
   local $SIG{__DIE__} = sub { warn(@_); };
   eval { weather_subroutine(); };
}