use Weather::Com; $Weather::Com::SIG{__DIE__} = sub { warn(@_) };