Anyway $response it is not empty: if you dump it (i use Data:Dump's dd method) you'll see it is completly full of stuffs excepts for the _content field.

So is $response->content that is empty, not the $response itself.

In the docs is said that the callback receive three arguments: a chunk of data, a reference to the response object, and a reference to the protocol object.

So you get and handy reference to the response object and I guess you can use it to populate it's _content field. If you modify the else part of the head_only sub like:

else{
            $$resp{_content}.="$line\n"
            # print "line $read_lines: $line\n"
        }
[download]

You can now print $response->content; and get the 30 lines only. Fun, no? thanks to let me investigate such useful feature

L*