Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Born by chaos

by uksza (Abbot)
on Aug 19, 2005 at 07:21 UTC ( #485034=obfuscated: print w/replies, xml ) Need Help??

My first JAPH...
(works with use strict and warnings of course)
#!/usr/bin/perl $|=1;print" ";for(qw(74 117 115 116 32 65 110 111 116 104 101 114 32 80 101 114 108 32 72 97 99 107 101 114)){until (int(rand(54321))==$_){print"\b".(qw[| \ - /][$?++]);$?== 4?$?=0:();}print"\b".(chr)."!";}