gistfile1.pl

        http_request(GET => $url,                                                            
          want_body_handle => 1,                                                             
          sub {                                                                              
            my ($handle, $headers) = @_;                                                     
            $self->response->headers($headers);                                              
            $handle->on_eof(sub {                                                            
             $self->finish;                                                                  
             $handle->destroy                                                                
            });                                                                              
            $handle->on_read(sub {                                                           
              my $data = delete $_[0]{rbuf};                                                 
              try {                                                                          
                $self->write(decode_utf8($data));                                            
                $self->flush(0);                                                             
              } catch {                                                                      
                $self->finish;                                                               
                $handle->destroy;                                                            
              };                                                                             
            });                                                                              
          }                                                                                  
        );