Posted to tcl by funa at Mon Dec 11 08:53:28 GMT 2017view pretty

#/usr/bin/expect

set $env(PASS)

set timeout -1
spawn ssh -o StrictHostKeyChecking=no funabashi@$1
expect "password"
send -- "PASS\r"
send -- "\r"
expect "$ "
send "arp -ne\r"
expect "$ "
interact