$ perl -le '$| = 1; $|++; print $|++' 1