perl/printenv