in reply to #!/usr/bin/perl -w and use warnings;

Plus, with the advent of the warnings pragma, you can use warnings for your entire program, but then locally scope a
no warnings; or no warnings qw(uninitialized);
for a block of code where there is a good reason not to use warnings.