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