our $dis = $mw->Entry( -width => '30' )->pack;    # Changed width from 10 to 30