Move '-w' in the #! line into 'use warnings;' in the Perl code, to