use warnings FATAL => qw(uninitialized);

##</code><code>##

$ perl -Mwarnings=FATAL,uninitialized  filename.pl