use Tk;
$mw = MainWindow->new;
$mw->Label(-text => "Hier kommt das eingebettete Fenster:")->pack;
$f = $mw->Frame(-container => 1)->pack;
my $id = $f->id;
warn $id;

$mw->update; # wichtig, Fenster muss gemappt sein!

if (fork == 0) {
    $mw2 = MainWindow->new(-use => $id);
    $mw2->Label(-text => "Das andere Fenster")->pack;
    MainLoop;
    CORE::exit();
}

MainLoop;