eval {
  weather_subroutine();
}
warn $@ if $@;