Select Code to Download

print is_num($|), "\n";   # 0
$|=1;
...
print 1   | "A", "\n";
print "1" | "A", "\n";
print $|  | "A", "\n";    # Acts as if $| is numeric