'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 

##</code><code>##

if ($meth eq 'POST') {                                                                                                  
	  $self->read_from_client(\$query_string,$content_length,0)                                                           
      	  if $content_length > 0;                                                                                         
	  # Some people want to have their cake and eat it too!                                                               
	  # Uncomment this line to have the contents of the query string                                                      
	  # APPENDED to the POST data.                                                                                        
	  #$query_string .= (length($query_string) ? '&' : '') . $ENV{'QUERY_STRING'} if defined $ENV{'QUERY_STRING'};        
                                                                                                                      
	last METHOD;                                                                                                        
}