while(<$new_sock>) { print $new_sock->peerhost, " said $_"; }