my $table_frame = $mw->Frame
                      (-height=>'10',
                       -width=>'30',
                       -relief=>'groove',
                       -borderwidth=>'3'
                       )->pack(
                              -expand=>1,
                              -fill=>'both',
                              -pady=>'0'
                              );