… | |
… | |
779 | warn "done.\n"; |
779 | warn "done.\n"; |
780 | }; |
780 | }; |
781 | |
781 | |
782 | $handle->push_write ("GET / HTTP/1.0\015\012\015\012"); |
782 | $handle->push_write ("GET / HTTP/1.0\015\012\015\012"); |
783 | |
783 | |
784 | $handle->push_read_line ("\015\012\015\012", sub { |
784 | $handle->push_read (line => "\015\012\015\012", sub { |
785 | my ($handle, $line) = @_; |
785 | my ($handle, $line) = @_; |
786 | |
786 | |
787 | # print response header |
787 | # print response header |
788 | print "HEADER\n$line\n\nBODY\n"; |
788 | print "HEADER\n$line\n\nBODY\n"; |
789 | |
789 | |