use Net::HTTP::NB; my $s = Net::HTTP::NB->new( Host => 'www.perlmonks.org' ); $s->write_request( GET => "/" ); my( $code, $msg, %headers ) = $s->read_response_headers;