test.cgi 363 B

1234567891011121314151617
  1. #!/usr/bin/env perl
  2. use strict;
  3. use warnings;
  4. use CGI qw(:standard);
  5. # Imprimir todas las variables de entorno CGI
  6. print header();
  7. print start_html('Variables de Entorno');
  8. print h1('Variables de Entorno de CGI');
  9. print "<ul>\n";
  10. foreach my $key (sort keys %ENV) {
  11. print "<li><strong>$key:</strong> $ENV{$key}</li>\n";
  12. }
  13. print "</ul>\n";
  14. print end_html();