Help for this page

Select Code to Download

Select or download this

sub RunServer {
  my $connectno = 0;
...
  $connex->close;
  print "Connection $connectno closed.\n\n";
}

Select or download this
```
  sleep 1 while ($connex->connected);
```