sub READLINE {
	my $self = shift();
	my $socket = $self->[SOCKET];
	my $line = <$socket>;   ####hang on this line
	$self->[LOG]->print(">> $line") if defined $line and !$self->[OFF];
	return $line;
}