...
my $fr = $mw->Frame;
...