perl -e " use Tk; tkinit()->WidgetDump; MainLoop "