E:\sh>perl -MTcl::Tk -we "print map {qq/[$_]/} Tcl::Tk::tkinit->interp->winfo('server','.')"
[Windows][5.0][2195][Win32]