<div>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?
</div>
<div> </div>
<div><font size="2">
<p>#!/usr/bin/perl<br>use warnings;<br>use strict;<br>use Net::SMTP;</p>
<p>my $server = 'smtp.meu_dominio.com.br';<br>my $from = 'Rafael Lebrao';<br>my $address = <a href="mailto:'destinatario@dominio.com.br'">'destinatario@dominio.com.br'</a>;<br>my $to = 'Destiatario';
<br>my $subject = 'Relatorios';<br>my $message = 'Teste de envio';</p>
<p>my $smtp = new Net::SMTP ("$server", Hello => "$server" ) or die( "cannot send e-mail: $!");</p>
<p>$smtp->mail("$server");<br>$smtp->to("$address");<br>$smtp->data();<br>$smtp->datasend("From: $from\n");<br>$smtp->datasend("To: $to\n");<br>$smtp->datasend("Subject: $subject\n\n");
<br>$smtp->datasend("$message\n");<br>$smtp->dataend();<br>$smtp->quit();</p></font></div>