proc sos_start {} {
    global SOS

    send_user "starting $SOS"
    spawn $SOS
    expect {
        -re ".*root.*" { perror "Can't start $SOS"; exit 1 }
    }
}

sos_start