Tk::Label=HASH(0x138f21c)$VAR1 = bless( {
                 '_TkValue_' => '.frame1.label'
               }, 'Tk::Label' );