$SIG{PIPE} = sub { warn "client closed" };

##</code><code>##

$SIG{PIPE} = 'IGNORE';