perl -MTk -le 'print tkinit->depth'