использовать JSON RPC :: :: Client;
Использование Data :: Dumper;
 
мой $ клиент = новый JSON :: RPC :: Client;

$ client->ua->учетные данные (
   'Локальный: 8332', 'jsonrpc', 'мой rpcusername' => «Мой rpcpassword» # Заменить реальный пользователь / проход
    );
мой @foo = $ client->ua->Учетные данные ( 'локальный: 8332', 'jsonrpc');
Распечатать "@foo \ п";

мой $ URI = 'HTTP: // локальный: 8332 /';
мой $ OBJ = {
    метод => 'получить данные',
    Титулы => [],
 };
 
мой $ Рез = $ client->звоните ($ Ури $ OBJ);
 
если ($ Рез) {
    если ($ res->is_error) {
        Распечатать "Ошибка : ", $ Res->сообщение об ошибке;
    }
    еще {
        печать Dumper ($ res->результат);
    }
}
еще {
    печать $ client->status_line;
}