#!/usr/bin/perl


use Net::SMTP;

#Cargamos la lista de mails de los diputados y la carta modelo
open (CARTA, "carta") or die "no puedo abrir la carta: $!\n";
@MSG=<CARTA>;
close (CARTA);
open (MAILS, "mails") or die "no puedo abrir los mails: $!\n";
@data=<MAILS>;
close (MAILS);

#### EDITAR
#Especificamos el servidor smtp que enviara nuestro correo
#Arnet es buena onda =)
$smtp = Net::SMTP->new('smtp.domain.net');

#Origen - Nuestra direccion de correo
$smtp->mail('user@domain.net');
#### FIN EDITAR

#Destino - Amorosos Diputados, muack's!
foreach $mail(@data){
$smtp->to("$mail");
}

$smtp->data();

#Asunto - Si se quiere editar, pues adelante!
$smtp->datasend("Subject: No a la ley de matriculacion\n\n");
$smtp->datasend(@MSG);
$smtp->dataend();
$smtp->quit;