proc foo {args} {
    global done
    puts $args
    puts [info hostname]
    close [lindex $args 0]
    set done 1
}
socket -server foo 4910
vwait done
