do{print("\ecGo\n o \n<|>\n<`>\n");sleep(1);print("\ecPerl! \\O/\n | \n/`\\\n");sleep(1);print("\ecGo\n ^>\n(| \n<`\\\n"); sleep(1);print("\ecPer^!\n\ O/\n(| \n >\\\n");sleep(1)}while(1)

Replies are listed 'Best First'.
Re: Amazing, huh?
by cog (Parson) on Mar 29, 2005 at 14:21 UTC
    I wouldn't say "Amazing", but it's pretty darn cool! Great! :-)

    I think I'll keep it running time and time again ;-)

    (hum... this gives me an idea...)

Re: Amazing, huh?
by holli (Abbot) on Mar 29, 2005 at 15:37 UTC
    doesn't work for me (no output, no error) at Perl 5.8.4/WinXP.

    holli, /regexed monk/

      I think it's the '\ec'-sequence (which clears the screen) that MS Windows has a problem with, but I don't know.

      As cog pointed out, 'amazing' might be the wrong word to describe the code, so you aren't missing out on anything special :).