switches

source of perl for linux application,

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