$ perl -wl
print "if!" if (my $o) = 0;
print "unless!" unless $o;
__END__
if!
unless!