sub read_from_client { my($self, $buff, $len, $offset) = @_; local $^W=0; return read(\*STDIN, $$buff, $len, $offset); }