linux - perlを使用してメールプローブでIPを変更するにはどうすればよいですか

Question

メールIDの受信ボックスが存在するかどうかを確認するためのスクリプトを作成しています（メールプローブ）。これにはMail::CheckUserモジュールを使用していますが、スクリプトを継続的に実行すると問題が発生し、IPをブロックする可能性があります。だから私は自分のIPを同時に変更したいと思います。10 個の IP が接続されたサーバーがあります。この IP をランダムに使用したいのですが、アイデアを教えてください

私が使用しているコードは以下のとおりです

 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";

助けてくれてありがとう