$RECV_TIMEOUT=5;
				# 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($@);