my $ro = HTTPRequest->new(
    host => 'www-proxy.t-online.de',
    http => '1.1'
) or die $!;

$ro->request(  method => 'PUT', uri => 'http://example.com', content => 'asdf', Connection => 'Keep-Alive');
$ro->request(  method => 'GET', uri => 'http://example.com', Connection => 'Close');

my $messages = $ro->response_slice; 
# Array [{statuscode => '', body => '', usw.}]
# alle Response-Headers sind drin in jeder {}