#!/usr/bin/env perl
use strict;
use warnings;
use CGI qw(:standard);

# Imprimir todas las variables de entorno CGI
print header();
print start_html('Variables de Entorno');

print h1('Variables de Entorno de CGI');
print "<ul>\n";
foreach my $key (sort keys %ENV) {
    print "<li><strong>$key:</strong> $ENV{$key}</li>\n";
}
print "</ul>\n";

print end_html();