#!/usr/dist/exe/expect -f

set timeout -1
set hostname blah
set login_name blah_blah
spawn $env(SHELL)
match_max 100000
send -- "telnet $hostname\r"
expect "login:"
send -- "$login_name\r"
expect "Password:"
interact -nobuffer -re "(.*)\r" return
#ask user for password and then return to script

send -- "cd $dir\r"
interact