Eu encontrei este artigo que mostra como definir uma função random para escolher um IP de uma lista e, em seguida, atribuí-lo como uma interface de saída para o driver smtp.
Essencialmente, você precisa configurar uma função:
sub randinet {
@inet = ("x.x.x.1", "x.x.x.2", "x.x.x.3", "x.x.x.4");
return $inet[int rand($#inet+1)];
}
e modifique o driver smtp:
remote_smtp:
driver = smtp
interface = "${perl{randinet}}"