c:\test>perl -e"++$counter &1 and 1; print $counter"
1