我怎樣才能改變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