# obtient la réponse
                eval {
                    local $SIG{ALRM} = sub { die "temporisation de l'alarme" };
                    alarm $RECV_TIMEOUT;
                    $portaddr = recv($sock, $packet, 1500, 0) 
                       or die "Réception impossible: $!";
                    alarm 0;
                    1;
                } or die($@);
                # affiche la sortie