#!/usr/bin/perl

 use Mail::Sendmail;

$mail{'To'} = 'luisfuentes11@hotmail.com';
$mail{'Smtp'} = '192.168.1.11';
$mail{'From'} = 'atencion.tramites@leon.gob.mx';
$mail{'Subject'} = "Envio Perl";
$mail{'body'} = "Prueba desde Script Perl";
if (!sendmail(%mail)) {
    print "Error : $Mail::Sendmail::error\n";
    exit 0;
}
print "Correo enviado\n";

#!/usr/bin/perl

use Mail::Sender;

my $sender = Mail::Sender->new();

if ($sender->MailMsg({
                         smtp => 'leonex.leonad.gob.mx',
                         from => 'atencion.tramites@leon.gob.mx',
                         to =>'piero66@hotmail.com',
                         subject => 'this is a test',
                         msg => "Hi Johnie.\nHow are you?.....",
                         auth => 'NTLM',
                         authid => 'root',
                         authpwd => 'asdf1234',
                     }) < 0) {
                         die "$Mail::Sender::Error\n";
                     }
print "Mail sent OK."

use Mail::Sender;
 my $sender = new Mail::Sender {smtp => 'localhost'};
 die "Error: $Mail::Sender::Error\n" unless ref $sender;
 print join(', ', $sender->QueryAuthProtocols()),"\n";

print join(', ', $sender->QueryAuthProtocols()),"\n";