sub add_shell_passwd {
    my ( $user, $shellpwd ) = @_;
    open PWD, "|$PASSWD_BIN --stdin $user" or die "Can't open pipe to $PASSWD_BIN $!\n";
    print PWD $shellpwd, "\n";
    close PWD;
}