Tk::grid($mw->Label(-text => "Bla:"),
          $mw->Entry(-textvariable => \$bla),
          -sticky => "nesw");
Tk::grid($mw->Label(-text => "Bla:"),
          $mw->Entry(-textvariable => \$bla),
          -sticky => "nesw");