| 1234567891011121314151617 |
- #!/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();
|