Help for this page

Select Code to Download

Select or download this
```
sock($server);
```
Select or download this
```
close $server;
```

Select or download this

use strict;
use IO::Socket qw(:DEFAULT :crlf);
...
  close $session
}
close $sock;