~ 3> perl
$a = 0;
$a = 4, $a++ if($a == 0);
print $a,"\n";
^D
5
~ 4> perl -le '$a = 0; $a = 4, $a++ if($a == 1); print $a;'
0
~5>