[Guest]

mar

require LWP::UserAgent;

my $ua = new LWP::UserAgent;

$response = $ua->post(
RIPN_WHOIS,
Content => [ Whois => 'test.ru' ],
Referer => RIPN_REF
);

print $response->content;

-----
$response = $ua->post(
RIPN_WHOIS,
Content => [
Whois => 'test.ru',
Host => 'whois.ripe.net'
],
Referer => RIPN_REF
);

В этом варианте он чать отправляет - остальные сервера пишут ошибку доступа