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