sub print_sucky_bunny {
   my ($client) = shift @_;
   print $client "\n\r             ";
   print $client "\n\r                            /|      __ ";
   print $client "\n\r                           / |   ,-~ / ";
   print $client "\n\r                          Y :|  //  / ";
   print $client "\n\r                          | jj /( .^ ";
   print $client "\n\r                          >-\"~\"-v\" ";
   print $client "\n\r                         /       Y ";
   print $client "\n\r                        jo  o    |           I am a sucky ASCII Art bunny";
   print $client "\n\r                       ( ~T~     j           And i am filling in temporarily";
   print $client "\n\r                        >._-' _./            So if you dont like me";
   print $client "\n\r                       /   \"~\"  |          You can suck my ****";
   print $client "\n\r                      Y     _,  | ";
   print $client "\n\r                     /| ;-\"~ _  l ";
   print $client "\n\r                    / l/ ,-\"~    \\ ";
   print $client "\n\r                    \\//\\/      .- \\ ";
   print $client "\n\r                     R        /    Y ";
   print $client "\n\r                     O       I     ! ";
   print $client "\n\r                      W      _\    /\"\ ";
   print $client "\n\r                    (\" ~----( ~   Y.  ) ";
}