use Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
my $dump = Dumper \%ENV;
for ($dump) {
  s/&/&/g;
  s/</&lt;/g;
  s/>/&gt;/g;
}
print "<pre>$dump</pre>";