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