proc GetFreePort {} {
        #get a free port
        set sock [socket -server Server 0]
        set port [lindex [fconfigure $sock -sockname] end]
        close $sock
        return $port
}

puts [GetFreePort]