Este es un pequeño ejemplo de perl para enviar correos a muchos usuarios ejecutándolo desde una terminal en GNU/Linux
#!/usr/bin/perl
use Net::SMTP;
$smtp = Net::SMTP->new('smtp.gmail.com');
print $smtp->domain,"\n";
$data_file="lista_correos.lst";
open(DAT, $data_file) || die("No se puede abrir el acrhivo!");
@raw_data =;
close(DAT);
foreach $student (@raw_data)
{
chop($student);
($s_name)=split(/\|/,$student);
$smtp->mail($s_name);
$smtp->to($s_name);
$smtp->data();
$smtp->datasend("Subject: Asunto del mensaje");
$smtp->datasend("\n");
$smtp->datasend("
Hola a todos:\n
\n
Este es un ejemplo basico para eviar correos por medio de perl, como si el\n
destinatario se enviara uno asi mismo...\n
Gracias\n
\n
\n
Att:Rodrigo Carreño
\n
");
$smtp->dataend();
print "$s_name\n";
}
$smtp->quit;