my $mw = MainWindow->new;
my $fr = $mw->Frame->pack;
$fr->Label( -text=>'hallo' )->pack;
...
$fr->destroy;