$ perl -MO=Deparse commented

BEGIN { $^W = 1; }