$^W = 1; # equivalent to perl -w