if (exists($INC{'strict.pm'})) { print "strict\n" }
if (exists($INC{'warnings.pm'})) { print "warnings\n" }

##</code><code>##

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