my $f = $mw->Frame()->pack();
$mw->Label(-text => 'foo')->pack(-in => $f);
$f->destroy();