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