我怎样才能改变IP在邮件探测使用Perl

Question

我正在创建一个脚本来检查邮件ID收件箱是否存在（邮件探测），我用这个Mail :: CheckUser模块。但问题是当我连续运行该脚本，可能有机会阻止我的IP，所以我想用改变我的IP同时。我有10 ips的服务器连接，我想用这种IPS随机，请给我任何想法，我使用

代码

use Mail::CheckUser; 
use Data::Dumper; 

my $res = Mail::CheckUser::check_email('xxxxx@example.com'); 
print $res."\n\n\n"; 

my $res1 = Mail::CheckUser::last_check(); 

print Dumper($res1)."\n\n"; 

感谢下面给出任何帮助

Answer 1

恕我直言需要简单的补丁Mail::CheckUser。

Mail :: CheckUser使用Net :: SMTP来处理smtp连接。 NET :: SMTP构造函数（new子）支持你需要的LocalAddr参数但是我现在看不到在Mail :: CheckUser的代码中传递额外参数给New :: SMTP构造函数的方法。

http://cpansearch.perl.org/src/ILYAM/Mail-CheckUser-1.21/CheckUser.pm
http://search.cpan.org/~shay/libnet-1.23/Net/SMTP.pm