perl -MTk -we "print tkinit->server"