my $frame = $mw->Frame(-relief => 'groove', -borderwidth => 2)
   ->pack(-anchor => 'nw', -expand => 1);