#!/usr/bin/perl

use Net::SMTP;

#Escribimos el cuerpo del mensaje

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

$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;