perl -e 'print join "\n", keys %ENV';