galera, o que tem de errado aqui?
#!/usr/local/bin/perl
$arquivo = '/home/fabio/email.txt'; #arquivos com cada linha um em...@meudominio
open(INFO, $arquivo) or die "Erro ao abrir o arquivo: $!";
@conteudo = <INFO>;
close (INFO);
foreach $i (@conteudo){
print "$i";
mail -s "assunto" @conteudo < cat /home/fabio/link.txt
}
Grato
____________________________________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
-------------------------
Histórico: http://www.fug.com.br/historico/html/freebsd/
Sair da lista: https://www.fug.com.br/mailman/listinfo/freebsd
