$thr = threads->create(sub {
			my $svr = JSON::RPC::Server::Daemon->new(LocalPort => $conf->{main}->{port});
			$svr->dispatch({$conf->{main}->{uri} => 'ApacheDebugServer'});
			$svr->handle(signal => 'KILL');
		});

$thr->kill('KILL');