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