[FUG-BR] Enviar email via script.perl

[Fabio]

galera, o que tem de errado aqui?
 
#!/usr/local/bin/perl
$arquivo = '/home/fabio/email.txt'; #arquivos com cada linha um email 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