- my $sel = IO::Select->new($s);
- $line = "Header timeout" unless $sel->can_read(10);
- ($code, $mess, %h) = $s->read_response_headers;
+ my $sel = IO::Select->new($s);
+ $line = "Header timeout" unless $sel->can_read(10);
+ ($code, $mess, %h) = $s->read_response_headers;