add socket-destroy
	modified:   lib/CljPerl/SocketServer.pm
	modified:   lib/CljPerl/quoi/comet.clp