use warnings qw(FATAL);

Note that requires Perl 5.20 and up, in earlier versions it's use warnings FATAL => 'all'; (<brag> I know cause I wrote the patch, my first in the Perl core ;-) </brag>)