#         1234567890123456
perl -le 'print$ENV{SHELL}'