#!/usr/bin/expect -f
set timeout -1
send -- "su - transfer\r"
match_max 100000
expect eof
set timeout -1
send -- "cd /home/publishing\r"
match_max 100000
expect eof
set timeout -1
spawn /home/publishing/sfiles.pl
match_max 100000
expect eof
set timeout -1