$| = 0;
   print "first=", $|, " second=", $|--, "\n";

##</code><code>##

   $| = 1;
   print "first=", $|, " second=", $|--, "\n";