in reply to Re^3: Forking an operative terminal
in thread Forking an operative terminal

Well, or User::pwent:

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

[download]

In Section Seekers of Perl Wisdom