while ( my $ns = $server->accept ) 
{
        ...
        if ( my $pid = fork ) {
	        close $ns or die "Client socket close failed. [$!]\n";
        } 
        elsif (defined $pid) {
                $ns->autoflush(1);
                client_connect $ns,$from;
        }
        else {
                die "fork error. [$!]\n";
        }
}