Enviar correo con PERL. Usado con Nagios.

Creamos un achivo con perl, en nuestro caso correo.pl:

# vi correo.pl
#!/usr/bin/perl
use Net::SMTP;
$destinatario=$ARGV[0];
$smtp= Net::SMTP->new('192.168.1.2');
$smtp->auth('usuario', 'password');
$smtp->mail('nagios@midominio.com');
$smtp->to("$destinatario");
$smtp->data();
$smtp->datasend("To: $destinatarion");
$smtp->datasend("Subject: información sujeto n");
$smtp->datasend("n");
$smtp->datasend("Este es un correo de prueba n");
$smtp->datasend();
$smtp->quit;

Y lo ejecutamos:

# ./correo.pl destinatario@sudominio.com

Continue reading