$ausgabe = $window->Frame->pack();
$frame = $ausgabe->Label(-command=> ?sub?)->pack();