If you prefer fatal treatment, you can:

use warnings FATAL => qw(numeric);
[download]

Of course if you like something else, you can always get it by doing your favorite thing in a
$SIG{__WARN__} handler.