'read_from_client' => <<'END_OF_FUNC',                                                                                        
# Read data from a file handle                                                                                                
sub read_from_client {                                                                                                        
my($self, $buff, $len, $offset) = @_;                                                         
local $^W=0;                # prevent a warning      

return $MOD_PERL ? $self->r->read($$buff, $len, $offset) : read(\*STDIN, $$buff, $len, $offset);                                                                              
}                                                                                                                             
END_OF_FUNC