Monks don't only share software.
They're also famous for this kind of stuff too...

Comments welcome.
#!/usr/bin/perl -w
#=====================================================================
+==========
#  DESCRIPTION:  Vevfu fgbhg
#       AUTHOR:  Pied
#      CREATED:  02.04.2006 01:21:42 CEST
#=====================================================================
+==========

use Term::ANSIColor qw(:constants);
use Time::HiRes qw( usleep );
use Term::InKey;

sub b{sub _{1};while(_){for$j($|..4){
print RED,"$\"|"if$j;for(1..24){print
WHITE,&e($j)}print RED,"|"if$j;print$/
}for(@v){chomp,s,(\d+),$"x$1,eg,s,VU,
"_"x21,ex,s,n,$/,g,print RED,"$_$/"}
usleep(1e5);&Clear}}sub g{(qw,. q o O
@,)[$%=4-sprintf"%i",rand($%-shift)]}
sub e{%_=(4=>1,3=>1,2=>1,1=>0.95,0=>
0.1);return&g($=)if($_{$==shift}>rand
())||return$"}@v=<DATA>,&b;_(&_,b,@v)
__DATA__
1\23/n1|23|n1|4###2#4#1###1#2|n1\3#3#1#4#2#2##1/n2\2#5#4#2#2##/n2|2#5#
+4#2#2#1|n
2|2#2##1#4#2#2#1|n2|2#3#1#4#2#2#1|n2|3###3####2###1#1|n2|21|n2|21|n2|2
+1|n2|21|n
2|21|n2|21|n2|21|n2|21|n2(VU)

[download]


P!
Are the monkeys gone yet?

In reply to One for the road. by Pied

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.