perl -le 'print$ENV{SHELL}'