Born by chaos

[uksza]

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)."!";}