Jak mogę zmienić IP w sondowaniu poczty używając perl - linux, perl, email, smtp, cpan

Tworzę skrypt do sprawdzania skrzynki odbiorczejistnieje lub nie (sprawdzanie poczty), używam do tego modułu Mail :: CheckUser.Ale problem polega na ciągłym uruchamianiu skryptu, może być szansa na zablokowanie mojego IP, więc chciałbym użyć zmiany mojego IP jednocześnie . mam serwer z 10 ips dołączony, chciałbym użyć tego iPS losowo, daj mi jakiś pomysł

kod, którego używam jest podany poniżej

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

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

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

print Dumper($res1)."nn";

dzięki za pomoc

Odpowiedzi:

IMHO Wymaga prostej łatki Mail::CheckUser.

Mail :: CheckUser używa Net :: SMTP do obsługi połączeń smtp. Konstruktor Net :: SMTP (new sub) obsługuje wymagany parametr LocalAddr ALE W obecnym kodzie Mail :: CheckUser nie widzę możliwości przekazania dodatkowych parametrów do New :: SMTP construtor.

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