Perl/Mail::SendEasy

Módulo	Mail::SendEasy
Versión	1.2
Uso	Propósito general
Propósito	Envío de correos electrónicos (con adjuntos incluídos) utilizando servidores SMTP.

Ejemplo

#!/usr/bin/perl

use Modern::Perl;
use Mail::SendEasy;
 
#   Variables   
my  $VERSION    =   0.1;

#  Enviando un mensaje
my  $mailer = Mail::SendEasy->new( server => q(localhost) );
my  %options    = (
    from    =>  'victor@example.net',
    to      =>  'victor@example.net',
    subject =>  'Probando voy, probando vengo ...',
    msg     =>  'Esta es una prueba con Mail::SendEasy',
    anex    =>  [ qw(/home/victor/.vimrc) ],
);

my $status = $mailer->send( %options );

if (not $status) {
    die $mailer->error();
}

# Fin del programa 
exit 0;