foreach $key (sort(keys %ENV)) {
    print "$key = $ENV{$key}<br>\n";
}