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