perl -w dubious_script.pl

##</code><code>##

    BEGIN { $^W = 1; }