use Tk::ObjScanner;
    use Tk::WidgetDump;
    Tk::ObjScanner::scan_object( 
        {
            q{\%ort_optmen} => \%ort_optmen ,
            q{\%t_optmen} => \%t_optmen ,
            q{\%ply_lab} => \%ply_lab ,
            q{\%mat_optmen} => \%mat_optmen ,
        }
    );
    $mw->WidgetDump;