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