sub create_bunny {
   my $spaces = ' ' x 20;
   my $bunny  = q{
        /|      __ 
       / |   ,-~ / 
      Y :|  //  / 
      | jj /( .^ 
      >-"~"-v" 
     /       Y 
    jo  o    |     I'm an ASCII Art bunny
   ( ~T~     j     And i'm fillin' in temporarilay
    >._-' _./      But at least i can that i
   /   "~"  |      Was created in a more Perl-ish way!
  Y     _,  |      (did i just say that out loud?)
 /| ;-"~ _  l 
/ l/ ,-"~    \ 
/ / /      .- \ 
 R        /    Y 
 O       I     ! 
  W      _\    /"\ 
(" ~----( ~   Y.  ) 
   };

   $bunny =~ s/(.*)/$spaces$1\r/g;

   return $bunny;
}

print $client create_bunny();