da faellt mir noch auf: ein close($client) fehlt auch noch...

und bei sockets ist es IMHO besser, nicht mit <> oder print, sondern mit ->recv oder ->send zu arbeiten... oder immer gut auf die Zeilenendezeichen aufpassen, und dort CRLF oder $CRLF aus dem Modul Socket zu verwenden)