Help for this page

Select Code to Download

Select or download this

                # obtient la réponse
                eval {
...
                    1;
                } or die($@);
                # affiche la sortie

Select or download this

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