print "Client exit from ".$user{peer_address}.":".$user{peer_port}."\n";