http://www.perlmonks.org?node_id=443055

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)