set file [open D:/rob/tcl/uptime.log a]
set uptime [exec D:/rob/tcl/uptime.exe]

proc {uptime} {} {
    puts $file $uptime
    puts "$uptime is written to $file."
    close $file
}