print "OK\n"     if     $a == 1;
print "Not OK\n" unless $a == 1;