#!/usr/bin/perl
print "Content-type:text/htmlnn";
$mensaje = "Este ejemplo muestra las variables de entorno";
print <<HTML;
<html><head><title>un ejemplo</title></head>
<body>
[b]$mensaje[/b]
HTML
;
foreach $key (sort(keys %ENV)) {
print "$key = $ENV{$key}
n";
}
print "</body></html>";