В perl6 це можна зробити ось так

perl6 -e 'print(%*ENV<SHELL>,"\n")'