while (my($key,$val) = each %ENV) {
  print "$key => $val\n";
}