The following was distributed a while ago as "footguy.c".
Can any golfers duplicate its function in perl using fewer characters?
There are a couple of literal ^G in here:
main(l){main(8^putchar(l++["xx77Rd$fR$wPP"]^88)?l:26+fflush(sleep(1))-l);}
In case you can't get this to work, it displays this:
oo
<|>
_|_
alternating with this:
oo
<|>
_|/
once per second.
To match the C program, you need to send the output to STDOUT, not
STDERR - but a stderr-producing perl version would be of interest.
Try http://www.waste.org/footguy/ - but you need at least Netscape 1.1
for this site to work.
Ian
