HTTP-клиент, возвращающий детальные тайминги?

А зачем это тестировать? Есть возможность повлиять на время днс-резолвинга? Речь же не о резолвинге своего домена?

Чтобы понять, на каком этапе возникает проблема. Сейчас на общее время загрузки веб-страницы есть триггер, но когда он срабатывает - сказать что-то определённое по сути невозможно, нужно понимать, из чего время загрузки складывается. В одном определённом случае удалось понять, например, что проблема была вообще не на стороне веб- приложения, а на стороне DNS. Если тупит веб-приложение - меры, которые следует предпринимать для того, чтобы разрешить ситуацию, существенно отличаются от тех мер, которые необходимо предпринять в том случае, когда сбоит dns-резолвинг.

Ну так измеряй то, что тебе подвластно, то есть веб-приложение. Вычитай из общего времени потом.

в 1998м, там, где Perl, любой HTTP запрос занимает минуту ±15 секунд. нет смысла это мерять.

Сам HTTP-клиент, очевидно, может узнать, сколько у него времени отнял DNS-резолвинг.

ничего не знаю про перл, но gethostbyname, очевидно, делает не HTTP клиент, а штука, которую обычно называют dns resolver
как оно реализовано у тебя, опять таки хз, может это библиотека на сях. но технически, время между попыткой открытия tcp сокета и получением первого байта можно считать резолвом +- хендшейки, т.е. это нужно лезть на уровень IO или брать логи с самого dns resolver.
а по ссылке супер высокоуровневый API.

libcurl умеет, можно поискать способ достать из него:

% curl -w %{time_namelookup} -o /dev/null ya.ru
0.008322

Да, и правда есть продвинутый http-клиент на базе libcurl, это Net::Curl::Easy : https://metacpan.org/pod/Net::Curl::Easy У этого класса есть метод getinfo, который и позволяет получить всё то же, что возможно и в https://curl.haxx.se/libcurl/c/curl_easy_getinfo.html Ибо просто интерфейс. В общем, да, cURL уделать ещё никому не удавалось...

Для этого есть WWW::Curl

$curl->getinfo(CURLINFO_NAMELOOKUP_TIME)

По-моему как минимум не хуже, но при этом Net::Curl обновлялся 9.09.2017-го :

use Net::Curl::Easy qw(/^CURLOPT_/ /^CURLINFO_/);;

my $easy = Net::Curl::Easy->new();
$easy->setopt( CURLOPT_URL, "https://linux.org.ru/" );
$easy->setopt( CURLOPT_WRITEDATA, \my $ans );
$easy->perform();
say 'Name lookup takes '.$easy->getinfo( CURLINFO_NAMELOOKUP_TIME );

У меня что-то от 0.012 с копейками до 0.03 время резолвинга на разных сайтах рунета.

Сравнил со временем Net::DNS::Resolver'а - последнее гораздо менее стабильно, но в общем то на то и выходит.