ASCII tucano

[tucano]

#!/usr/bin/perl
system ("clear");print <<END_of_Multiline_Text;
''iiiiiii_i''|  ''....
:d888888888b|  '..    ''
:88888888888'     ''.                        ,/----._
:Y888888P,Y' ''..                           ,|..:.::o\.
:d888888'  .     '                      ,- .: @..::::o\
:Y88P' .    '.                        /'......:.::o:oo|
''' .   '.    '.                     |._.__..-.:.::o:o|
 :   '.   '.                              ,Y---|::ooOoO...
  :   '.    '                            / ..:.::o:ooOoOO8\
   :    '                               ,|..:.::o:ooOoOO8O|
    '                                      ..:.::o:ooOoOO8|
                                        \. .::o:ooOoOO8O88|
  _____ ______   _____ ______ _______   `\.:.::o:ooOoOO8O8|
 (_____|_____ \ (_____) _____|_______)   `\.::o:ooOoOO8888|
    _   _____) )   _ | /      _____       `\.::ooooOOOO888|
   | | |  ____/   | || |     |  ___)       '.:ooOoOO8O8888|
  _| |_| |       _| || \_____| |_____       `.:ooOoOO8O88/'
 (_____)_|      (_____)______)_______)       ..oOOOO8888/
                                              \.oOO8O88/
                                               <.O8O8,'
                                      _________|:p.8/................
                                 .--''---.....__|'|..................


END_of_Multiline_Text

Stupid ... no?
I use this like a sub in my scripts... The cool is that is you type './script.pl logo', this sub print my LOGO on the screen (eh eh eh). I have a very high QI (=~ 2,4 points)

Considered: EdwardG delete - regretfully - allowing this starts us on a slippery slope.
Unconsidered: castaway - Keep/Edit/Delete = 13/1/16 - tied on keep/delete so we're keeping it

[ambrus]

I don't use perl for such a script:

#!/usr/bin/tail +2
''iiiiiii_i''|  ''....
:d888888888b|  '..    ''
:88888888888'     ''.                        ,/----._

....

(Yes, this does not clear the screen.)