wandering perl

[chunlou]

After reading Perl Idioms Explained - $|++, I ended up with this. (Works on DOS at least, plus random errors once a while.)

$|=1;$"="\r";for(1..20){print(chr(0b100000)x rand(40),"Perl@{['','']}"
+);print("@{[chr(0x1f+sleep(1))]}"x80,chr(0b1101))}