perl -MTcl::Tk -we "print Tcl::Tk::tkinit->server"