[Cascavel-pm] Cliente SMTP

[Rafael Lebrao Martins]

Boa tarde, pessoal. Estou tentando utilizar o módulo Net::SMTP para criar um
cliente de e-mail. Escrevi o código abaixo, no entanto não está
funcionando.. Ele não envia o e-mail, mas não dá erro algum.. O que pode
estar ocorrendo?


#!/usr/bin/perl
use warnings;
use strict;
use Net::SMTP;

my $server = 'smtp.meu_dominio.com.br';
my $from = 'Rafael Lebrao';
my $address = 'destinatario em dominio.com.br';
my $to = 'Destiatario';
my $subject = 'Relatorios';
my $message = 'Teste de envio';

my $smtp = new Net::SMTP ("$server", Hello => "$server" ) or die( "cannot
send e-mail: $!");

$smtp->mail("$server");
$smtp->to("$address");
$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: $subject\n\n");
$smtp->datasend("$message\n");
$smtp->dataend();
$smtp->quit();
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080124/538e916f/attachment.html