$| = 0;

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

$| = 1;

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