perl -MTk -MTk::ObjScanner -MTk::WidgetDump   -e " $mw = tkinit; $p = $mw->Scrolled(qw/ Text / )->pack; $mw->WidgetDump; Tk::ObjScanner::scan_object( $p ); MainLoop; "