sub AmStillConnected {
	return unless defined $sock;
	return unless $sock->connected;
	return 1;
}