sub create_sucky_bunny {
   my $bunny;
   $bunny .= "\n\r             ";
   $bunny .= "\n\r                            /|      __ ";
   $bunny .= "\n\r                           / |   ,-~ / ";
   $bunny .= "\n\r                          Y :|  //  / ";
   $bunny .= "\n\r                          | jj /( .^ ";
   $bunny .= "\n\r                          >-\"~\"-v\" ";
   $bunny .= "\n\r                         /       Y ";
   $bunny .= "\n\r                        jo  o    | ";
   $bunny .= "\n\r                       ( ~T~     j ";
   $bunny .= "\n\r                        >._-' _./  ";
   $bunny .= "\n\r                       /   \"~\"  | ";
   $bunny .= "\n\r                      Y     _,  | ";
   $bunny .= "\n\r                     /| ;-\"~ _  l ";
   $bunny .= "\n\r                    / l/ ,-\"~    \\ ";
   $bunny .= "\n\r                    \\//\\/      .- \\ ";
   $bunny .= "\n\r                     R        /    Y ";
   $bunny .= "\n\r                     O       I     ! ";
   $bunny .= "\n\r                      W      _\    /\"\";
   $bunny .= "\n\r                    (\" ~----( ~   Y.  ) ";
   
   return $bunny;
}