#!/usr/bin/expect --

set host [lindex $argv 0]
set user [lindex $argv 1]
set files [lrange $argv 1 500]
set pass [read stdin]


spawn /usr/bin/scp -o "StrictHostKeyChecking no" $files .
set timeout 90
expect "*assword:" {
	sleep 1;
        send "$pass\r"
}
expect -timeout 7200 "100:"