Olá, Marcelouco. Eu fiz este script pra te dar uma idéia. Você ainda tem que testar ele. Terá que faze-lo numa BD fictiça. #!/usr/bin/perl
use strict;
use DBI;
use Net::SMTP;
my $smtp = Net::SMTP-> new('smtp.host.com'); #Nome do servidor SMTP
$smtp->auth("user","senha"); #Autenticação para o SMTP
my $dbh = DBI->connect("dsn", "usuario", "senha"); #Autenticação para a Base de Dados
my $sth;
for(0..9999){ #Assumindo que o limite dos registros é 9999.
$sth = $dbh->prepare("SELECT Nome_User, Email_User, EnvMail FROM tabela WHERE EnvMail = 'N' LIMIT $_, 300");
$sth->execute;
while (@registro = $sth->fetchrow_array){
$smtp->to($registro[1]);
$smtp->data();
$smtp->datasend("To:$registro[1] ");
$smtp->datasend("From: remitente");
$smtp->datasend("mensagem");
$smtp->quit; # Email enviado com sucesso
$sth = $dbh->do("UPDATE SET tabela SET EnvMail = 'S' WHERE Email_User = $registro[1]");
}
sleep 3600;
} Abraços!