% perl -MUser::pwent -E 'say getpw($<)->shell' 
/usr/local/bin/zsh