C:\>perl
$a = 3;
print "ungerade\n" if $a & 1;
^Z
ungerade