$SIG{__WARN__} = sub { CORE::die "Warning:\n", @_, "\n" };