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