set rmt_server [lindex $argv 0]
set count [lindex $argv 1]

while {$count > 0 } {
    spawn openssl s_client -brief -dtls1 -connect $rmt_server
    expect "Server Temp Key:"
    send "Hello DTLS\n\x04"
    expect "DONE"
    set count [expr $count-1];
}