use strict;
use Tk;

........
$.. = $x->Label(-command=> sub { [HIER MEIN BEFEHL] })