perl -MTk -MTk::WidgetDump -e '$mw=tkinit;$mw->Button->pack;$mw->WidgetDump;MainLoop'