I think I saw it move!

[ChOas]

Hey people!,

Hope you like it, tested under 5.6.0 AIX and Solaris
and Win32 ActivestatePerl 5.6 (thnx, crazyinsomniac).

#!/usr/bin/perl -w

                   use strict;
                 $|++;@_=split//,
         "|Just Another Perl Hacker|";
        sub ll{select(undef,undef,undef,
        0.05);}; my @l;$"="";for(0..12){
        ll;splice@l,@l/2, 0,@_[$_,-$_-1]
        ;print' 'x13,"@l\r";};while (1){
        @l=@_;for(0..11){pop@l;shift@l;
        ll;print "\r",' 'x(13+$_)," @l "
        ;};ll;ll;ll;for(reverse 1..12){
        splice@l,-1,0,$_[$_-1];splice@l,
        0,0,$_[-$_-1];ll;print"\r",' 'x(
        13+$_), "@l \b\b\b   ";};ll;ll;
               ll;@_=reverse@_;};

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;

[providencia]

That was pretty cool.

I can't wait for Japh on Ice!!!