# obtient la réponse
                my(undef,undef,$packet) = recv_timeout( $sock, $RECV_TIMEOUT );
                die "temporisation de l'alarme" } unless $packet;
                # affiche la sortie