homo.pl

use strict;
use warnings;

my $homo = q/
                                                _ayQm
                                            _swmQQQQQ
                                        samQQQ@T\"3QQW
                                       jQWT?\"^  jQF]W
                                       \"\"      <WF ]W
                                              _QP  ]W
                                             _Q@`  ]W
                                             m@`   ]W
                                            jQ'    ]W
                                           jQ(     ]W
                                          jQ[      ]Q
                                         <WF       ]W
                                        _QD        ]W
                                        m@`        +?
                            _awwwwwww, mW'
                         amQQQ8HVHVHWQQQ^
                       wQQP!\"`      -?$Qa
                     amQ?`             4Qg
                    jQP'                )Qk
                   jQ[                   )Qk
                  jWF             :       ]Qc
                  QF              -::-     4Q
                 jW`             ::   :    :Q[
                _QF              _    _     $m
                jQ`    ,       ; =;;;== ;   )Q(
                Qf    )Q;      : :::::: ;    WL
               _Q[    ]Q`      : ;::::: :    ]Q
               ]Q`    ]W       - =:;::: :    =Q[
               ]Q     +Y         =::;:=       Q[
               ]Q                 :  :        $L
               ]Q                 =::=        dk
               ]Q                 - -`        mk
               ]Q                            _Q[
               jW                            dW`
               ]Q           ws,,            jQ(
               +QL         =WQQQQm         jWF
                3Qc          -\"??T        wWF
                 4Qw                    _mQ!
                  4Qm,                _mQD^
                   \"$Qmwaaas_a_asaawwQQWQc
                     Q@$WBQQQQQQQWWUVY^ 4Q
                     Q[   ]Q:----Qm     :QL
                     Q[   )Q;    $m      4Q;
                     Q[    Q[    ]W;     -QL
                     Q[    QL    -QL      4Q
                     Q[    3m     3m      +Qc
                     Q[    ]Q,    ]Q;      $m
                     $k    -$Q,   -Qf      -QL
                     ]Q     -Wk    $m       )k
                     =Qc     -`    )Qm
                      WL            \"!
                      -`
/;

chomp( my $width = `tput cols` );
my $max = int(($width - 56) / 4);

for (1 .. $max) {
    $homo =~ s/^/    /mg;
    system('clear');
    print $homo;
    select undef, undef, undef, 0.1;
}