my ($shell, $uid);
while (($uid, $shell) = (getpwent)[2,8]) {
    last if $uid == $<;
}
say $shell;