代理后面的Net :: Whois :: Raw

Question

我在两个系统上使用Net::Whois::Raw：一个没有代理的系统，它运行良好，另一个系统带有代理，它在/lib/Net/Whois/Raw.pm第171行引发错误。我的代码就像以下：

use Net::Whois::Raw;

my $host = shift;
$Net::Whois::Raw::CHECK_FAIL = 1;
$Net::Whois::Raw::OMIT_MSG = 1;

my $whois_raw = whois($host);

print $whois_raw;

在命令行上提供主机。

有人可以举例说明如何配置此模块以使用代理吗？