Расковырял сам. Вот рабочий вариант, может кому понадобится
#!/usr/bin/perl
use utf8;
binmode(STDOUT,':utf8');
use Regru::API;
use Data::Dumper;
use JSON;
my $client = Regru::API->new(
username => "test",
password => "test"
);
my $params = { show_renew_data => 1, show_update_data => 1};
$resp = $client->domain->get_prices( $params );
if ($resp->is_success) {
foreach $dom ( keys $resp->answer->{'prices'}) {
print $dom;
print "\t";
$reg_price = $resp->answer->{'prices'}{$dom}{'reg_price'};
print $reg_price;
print "\t";
$retail_reg_price = $resp->answer->{'prices'}{$dom}{'retail_reg_price'};
print $retail_reg_price;
print "\n";
};
};
Ну вывод элементов цены можно и нужно сделать покрасивее, да все равно оно не нужно - выводиться тут они не будут. Я доковырял именно как добраться до данных.
Ключ - Regru::API::Response->answer - содержит в себе результат decode_json полученного ответа от reg.ru
