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