local $SIG{_ _WARN_ _} = sub { die $_[0] };