Select Code to Download

'read_from_client' => <<'END_OF_FUNC',                                
+                                                        
# Read data from a file handle                                        
+                                                        
...
return $MOD_PERL ? $self->r->read($$buff, $len, $offset) : read(\*STDI
+N, $$buff, $len, $offset);                                           
+                                   
}                                                                     
+                                                        
END_OF_FUNC

if ($meth eq 'POST') {                                                
+                                                  
      $self->read_from_client(\$query_string,$content_length,0)       
+                                                    
...
                                                                      
+                                                
    last METHOD;                                                      
+                                                  
}