Enviando e-mail em Perl usando SMTP

Para para você conseguir fazer e rodar este script você precisará dos seguintes materiais: PERL, HTTPD (opcional), servidor SMTP, Net::SMTP, editor de texto.

Mãos a massa.

Iniciando:

use Net::SMTP; 

Após isto deverá enviar os seguintes dados: servidor SMTP, usuário, autenticação, destinatário, cabeçálio do e-mail e conteúdo.

  $smtp = Net::SMTP->new(‘smtp.cgiclube.net’); # abre conexãocom o servidor smtp
$smtp->mail(“cgiclube”); # usuário
$smtp->auth(“cgiclube”,”senha”); # identificação
$smtp->to(‘alguem@cgiclube.net ‘); # destinatário
$smtp->data();
$smtp->datasend(“To: alguem@cgiclube.net “); # destinatário
$smtp->datasend(“From: alguem@cgiclube.net “); # remetente e encerra o cabeçálio
$smtp->datasend(“email enviado! cgiclube.net”); # conteúdo
$smtp->quit; #fecha conexão 

Um exemplo com o código completo:

#!/usr/bin/perl

use Net::SMTP;
$smtp = Net::SMTP->new(‘smtp.cgiclube.net’);
$smtp->mail(“cgiclube”);
$smtp->auth(“cgiclube”,”senha”);
$smtp->to(‘alguem@cgiclube.net ‘);
$smtp->data();
$smtp->datasend(“To: alguem@cgiclube.net “);
$smtp->datasend(“From: alguem@cgiclube.net “);
$smtp->datasend(“email enviado! cgiclube.net”);
$smtp->quit;
print “Content-type: text/html “;
print “email enviado”;
exit;

Fonte: http://www.plugmasters.com.br/sys/materias/63/1/Enviando-e-mail-em-Perl-usando-SMTP