telnet_get_server.expect

#!/usr/bin/expect

set host [lindex $argv 0]

set timeout 20
spawn telnet $host 2000 
expect ">"
send "list\r"
expect ">"