if ($command =~ /^BYE/) {                 
         print $new_sock "OK disconnecting . . . \n";
         shutdown $new_sock, 2;
         exit 0;
     }