milis/bin/sifre_degistir

#!/usr/bin/expect
spawn passwd mahk
expect "password:"
send "mahk1\r"
expect "Retype new password:"
send "mahk1\r"
interact