You need to use the Perl Select() I/O function to be able to know when a client has closed the connection. There is a good example of that on PerlMonkey