Perl vs. C?

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