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

##</code><code>##

perl -MTcl::Tk=:perlTk -we "print tkinit->server"