My first JAPH...
(works with use strict and warnings of course)
(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)."!";}
|
---|
Back to
Obfuscated Code