All, как передать файл в telnet сессии? Я представляю примерно так:

#!/usr/bin/expect --
set timeout 60

if $argc!=1 {
        send_user "Usage: ./tr.exp file\n"
        exit
        }
set file [lrange $argv 0 1]
set content [exec cat $file]
set user xxx
set host yyy
set pass zzz

spawn telnet $user $host
expect "password:"
send "$pass\r"
expect "$"
send "cat >$file<<EOF\r"
expect ">"
send "$content\r"
expect ">"
send "EOF\r"

interact
exit