$ perl -Mwarnings=FATAL,uninitialized  filename.pl