spawn sftp test@testserver.com

expect -exact "password:"

send "password"

expect "sftp>"

send "get /export/home/testfile/test /home/btobin0/damitsnotworking/

expect "sftp>"

send "exit"


##</code><code>##

This is the perl code. works just fine


for (8 .. 46){

system ("expect net");

< A bunch of Perl Code >

sleep 300
}