Convert my shell script into expect/tcl

hi experts,

how will i convert the first part of my script into expect or tcl since shell script cannot be embedded into expect script ? i have 100+ servers in my serverlist. how will i call or declare it in expect or tcl ?

#!/usr/sbin/expect -f
serverlist=`cat $1`
for i in serverlist
do
      echo $i
      spawn bundle linux -r $i checkpath /opt/home/support/.k5login
      expect "password:"
      send "xxxxxx!\r"
      interact
done

i would appreciate much if someone can provide me an example related to this and direct me in accomplishing this script.

Tcl Tutorial

thanks frank... i have figured it out.