#!/usr/bin/perl -w
$,=' ';open X,$0;$m=$,x22;map{s;#\s(.*)#$;#        Put #
$m.=$1;meg}(<X>);$|++;$\="\r";$n='\|/-';$l#       your #
=length$m;for(0..2*$l){;$r=sprintf"%.22s",#    message #
substr($m,($_%$l),22).$m;$d=substr($n,$_%4#      here. #
,1);print$,,$d,$r,$d;select($2,$',$@,.1);}#  Have fun! #