The -w flag and tweaking $^W directly are so old fashioned... see What's_wrong_with_-w_and_$^W in perllexwarn.

(Of course, if you are stuck with a pretty old version of perl, $^W may be the only way.)