Enviar Correos por medio de Perl

.

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;