my $ssh = Net::SSH::Expect->new (
                binary => "/usr/local/bin/ssh",
                host => "$serverlist[$host]",
                user => "$user",
                raw_pty => 1,
                log_file=> "/tmp/$serverlist[$host].log",
                timeout => 4,
                ssh_option => "-o ConnectTimeout=8",
        );