$ausgabe = $window->Frame->pack();
$frame = $ausgabe->Button(-text => 'blabla', -command=> sub{print "Tue irgendetwas nützliches\n"; rufeDieseSubAuf();})->pack();