http://www.perlmonks.org?node_id=852246


in reply to IO::Socket does not send FIN ack?

What you've shown is not even close to a useable server so I recommend you read perlipc, especially the section labeled TCP Servers with IO::Socket, which has a simple example. You may also need to brush up on the Transmission Control Protocol.