Help for this page
perl -MTcl::Tk -we "print Tcl::Tk::tkinit->server"
perl -MTcl::Tk=:perlTk -we "print tkinit->server"