Desarrollo :: Envío de e-mails mediante Perl

Este sencillo script en Perl nos permite enviar un correo electrónico, también podemos especificar un servidor smtp.


#!/usr/bin/perl


use Net::SMTP;

#Escribimos el cuerpo del mensaje

$MSG = "Correo de prueba!\n\n";

#Especificamos el servidor smtp

$smtp = Net::SMTP->new('smtp.provider.com');

#Origen

$smtp->mail('skarvin@gmail.com');

#Destino

$smtp->to('antonio@gemeil.com');

$smtp->data();

$smtp->datasend("Subject: Prueba Mail\n\n");

$smtp->datasend($MSG);

$smtp->dataend();

$smtp->quit;

Posted on 1:27 p. m. by skarvin and filed under | 0 Comments »

0 comentarios: