##
## << while (($v,$vv) = each %ENV) { print "$v = $vv\n" } >> ##
<
>