if (exists($INC{'warnings.pm'}) || $^W) {print "Warnings\n"};