Help for this page

Select Code to Download

Select or download this

    my $hSocket = IO::Socket::INET->new(
      LocalPort=>$intListenPort, 
...
      respond, then close both ports.
    while ($hSocket->recv($datagram,42,$flags)) {
...

Select or download this

until ($hSocket->accept()) {
        ...check for timeout
...
        }
        while ($hSocket->recv($datagram,42,$flags)) {
        ...