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)