#!/usr/bin/expect --

set host [lindex $argv 0]
set file [lrange $argv 1 99]
set pass [read stdin]


spawn scp  -o "StrictHostKeyChecking no" $file root@$host:$file
set timeout 90
expect "*assword:" {
	sleep 1;
        send "$pass\r"
}
expect -timeout 7200 "100:"