etype(extension,wav) "audio/wave"
set mimetype(extension,mid) "audio/midi"
/etc/magic
proc run {file} {
    global mimetype

    if {[file executable $file]} {
        exec $file
        return
    }

    catch {set mimetype $mimetype(extension,[file extension $file])}

    if {![info exists mimetype]} {
        set mimetype $mimetype(magic,[exec /bin/file $file])
    }

    exec $mimetype(application,$mimetype) $file
}</PRE>

<LI> Add socket level communication model
<LI> Enhance the true debugging capabil