#!/usr/bin/perl
use strict;
use warnings;
print "Content-Type: text/html\n\n";
# Datos del nuevo usuario
my $username = "nuevo_usuario";
my $email = "nuevo_usuario@example.com";
# Crear un nuevo archivo HTML
my $filename = "nuevo_usuario.html";
open(my $html_file, '>', $filename) or die "No se pudo crear el archivo: $!";
print $html_file "<html><head><title>Nuevo Usuario</title></head><body>\n";
print $html_file "<h1>Bienvenido, $username</h1>\n";
print $html_file "<p>Correo electrónico: $email</p>\n";
print $html_file "</body></html>\n";
close($html_file);
print "Nuevo usuario creado y documento HTML generado: $filename\n";
Crear cuenta