for my $key (keys %ENV) {
    print $key, ": ", $ENV{$key}, "<br>\n";
}