As Ikegami pointed out, the easy way is peerhost. Try it like this...

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