[root@jove tmp]# ./newperl -e 'print join " ", keys %ENV;print "\n"';
HOSTTYPE LOGNAME MAIL OSTYPE HOME MANPATH SHLVL OLDPWD PWD PATH SSH_TTY TZ PS1 SHELL TERM MACHTYPE ORACLE_HOME _ USER HOSTNAME
[root@jove tmp]# ./oldperl -e 'print join " ", keys %ENV;print "\n"';
PX_ANI_PORT CLASSPATH SATMP PX_USER VERSION SVC_ENTRY_DMGT PX_LOGFILE HOME JAVA_HOME I_MODE PX_OSA_PORT PX_DATASTORE PX_SCLASSDIR PX_GROUP PX_JRN_PORT OSAGENT_PORT PRODVERS PX_PROTOCOL DMGT_START BASEDIR ASANY PX_BINDIR LANG UPDATE LC_ALL EMAIL PX_WEB_PORT PX_HLPDIR PX_CONFDIR TZ I_CONF_SYSLOG VENDOR PX_DOCURL CWMIBDIR PX_DMGTHOST NMSROOT PSTAMP PX_TMPDIR TERM OAMBASE SQLANY PX_DOCDIR PATCHVER SVC_ENTRY_OSA DESC PKGINST PX_DATADIR NAME PKG ASTMP PX_APPDIR PX_LOGDIR ALIAS PX_PORT PKGSAV PX_CGIURL PKGOWNER CLASSES SVC_ENTRY_SSL LD_LIBRARY_PATH PX_CLASSURLPX_CTRBDIR PRODNAME PX_DMGT_PORT PX_CGIDIR NLSPATH INSTDATE BUILD_ID PX_CLASSDIR PX_LIBDIR ARCH CATEGORY PX_HOST SVC_ENTRY_JRN PATH DMGT_PORT HOTLINE SVC_ENTRY_WEB PX_FACILITY
[root@jove tmp]#