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)
 }