while( my $messageObj = read( any( @sockets ) ) ) {
    ## reply
    send $msgObj->socket, 
        "Thanks for your message '$msgObj->text', we'll get back to you."
}