my ($conn1, $peer1) = $sock->accept();
die "accept: $!" unless $conn1;
# Now $peer1 tells you who is connected to $conn1