我的比特币钱包中的所有私钥都有一个大转储（~25K），但我没有映射到每个私钥的相关地址。在重新创建钱包之前我需要地址，因为我需要跳过一些地址而不是将它们添加到新钱包中。
我被指向一个包含转换方法的python工具：pywallet，但我宁愿在Perl中执行此操作，因此我可以更轻松地编写脚本。我还发现这两个JavaScript网站执行此操作：bitaddress.org和brainwallet.org。
我在CPAN上找到了以下库，这听起来可能对此有帮助，但我不知道如何将各个部分插在一起：Math::EllipticCurve::Prime，Crypt::OpenSSL::EC。前者的文档说它真的很慢，后者可能更快，因为它使用了C库，但文档令人困惑。我还在Rosetta Code上找到了一些椭圆曲线代码。在CPAN上曾经有一个Crypt :: ECDSA，但在某些时候被删除了。
那么使用Perl从私钥获取比特币地址的最佳方法是什么？