#!/usr/bin/perl

                              @_
                             =('A'
                            , 'a',
                            'Two',
                        'Three', 'Four'
                       , 'FIVE', 'Six',
                   'Seven', 'Eight', 'Nine',
                  'Ten', 'Eleven', 'Twelve',
               'ing', 'in','geese', 'partridge'
             ,'swans', 'hens', 'birds', 'doves',
            'danc', 'pear', 'call', 'tree', "\n",
                   'swimm', 'milk', 'leap'
               ,'pip', 'drumm', 'ers', 'turtle'
           , 'RINGS', 'french', 'maids', 'ladies',
  'lords', 'GOLD', 'lay', 'and', ',', '.', '...'); @a=(&_____,
      &______.&_____,&_______.&______.&_____,&________.
   &_______.&______.&_____, &__________.&________.&_______.
  &______.&_____, &____________.&__________.&________.&_______.
 &______.&_____, &___________.&____________.&__________.&________.
            &_______.&______.&_____, &_________.
       &___________.&____________.&__________.&________.
     &_______.&______.&_____, &____.&_________.&___________.
 &____________.&__________.&________.&_______.&______.&_____, &___.
&____.&_________.&___________.&____________.&__________.&________.
             &_______.&______.&_____, &__.&___.
         &____.&_________.&___________.&____________.
     &__________.&________.&_______.&______.&_____,&_.&__. &___.&____.
&_________.&___________.&____________.&__________.&________.&_______.
                      &______.&_____);sub _
     {return "@_[12] @_[30]@_[31] @_[30]@_[13]@_[41] @_[25]"}
sub ____________{return "@_[6] @_[15] @_[1]-@_[39]@_[13]@_[41] @_[25]"
+}
   sub ___{return "@_[10] @_[37] @_[1]-@_[28]@_[13]@_[41] @_[25]"}
                       sub __________
           {return "@_[5] @_[38] @_[33]@_[43] @_[25]"}
sub _____{return "@_[0] @_[16] @_[14] @_[1] @_[22] @_[24]@_[42] @_[25]
+@_[25]"}
       sub ________{return "@_[4] @_[23]@_[13] @_[19]@_[41] @_[25]"}
                     sub _______
          {return "@_[3] @_[34] @_[18]@_[41] @_[25]"}
    sub ______{return "@_[2] @_[32] @_[20]@_[41] @_[40] @_[25]"}
sub _________{return "@_[8] @_[35] @_[1]-@_[27]@_[13]@_[41] @_[25]"}
     sub ____{return "@_[9] @_[36] @_[21]@_[13]@_[41] @_[25]"}
                    sub ___________
     {return "@_[7] @_[17] @_[1]-@_[26]@_[13]@_[41] @_[25]"}
    sub __{return "@_[11] @_[29]@_[31] @_[29]@_[13]@_[41] @_[25]"}
@_=('first', 'second', 'third', 'fourth', 'fifth', 'sixth', 'seventh',
     'eightth', 'nineth', 'tenth' ,'eleventh', 'twelfth');$i=0;
 foreach (@a){print reverse(("\n",'...','me',' to ','gave',' love ',
                         'true','my ',
                        ' Christmas ','of'
                         ,' day ',@_[$i]
                         ,'the ','On '))
                         ;sleep(3);print
                             ;$i++;}
[download]