getpass.tcl - prompt user for tacacs password (encr key) and return password to caller
proc getpass pwprompt {
global ans
set oldmode [stty -echo -raw]
send_user "\n $pwprompt"
set timeout -1
expect_user -re "(.*)\n"
send_user "\n"
eval stty $oldmode
return $expect_out(1,string)
}