print "1..1\n"; print $INC{'strict.pm'} ? "ok 1\n" : "not ok 1\n";