#!/usr/bin/perl
use strict;
use warnings;
use Tk;

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

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

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

MainLoop();