Enviando e-mails em Perl

Nesse tutorial, apresentamos um rápido exemplo de como enviar e-mails utilizando o Perl.

#!/usr/bin/perl
use Net::SMTP;
my $smtp_server = "smtp.mysite.net";
my $from = "eu@provider.net";
my $to = "voce@provider.net";
my $user = "eu";
my $pwd = "senha";
$smtp = Net::SMTP->new($smtp_server);
$smtp->mail('provider.net');
$smtp->auth($user,$pwd);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: ".$to);
$smtp->datasend("From: ".$from);
$smtp->datasend("Enviado.");
$smtp->quit;
exit;