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

##</code><code>##

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