$SIG{__WARN__} = sub {die @_};