#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;
# Configuración del servidor SMTP
my $smtp_server = 'smtp.example.com';
my $smtp_port = 25;
# Detalles del correo electrónico
my $from = 'tu@email.com';
my $to = 'destinatario@email.com';
my $subject = 'Asunto del Correo';
my $message = 'Cuerpo del Correo';
# Conexión al servidor SMTP
my $smtp = Net::SMTP->new($smtp_server, Port => $smtp_port) or die "No se pudo conectar al servidor SMTP";
# Envío del correo electrónico
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$message\n");
$smtp->dataend();
# Desconexión
$smtp->quit;
print "Content-type: text/html\n\n";
print "<html><head><title>Correo Enviado</title></head><body>";
print "<h1>Correo Enviado</h1>";
print "<p>El correo electrónico ha sido enviado correctamente.</p>";
print "</body></html>";