my $Hallo = $frame ->Button(-text=> 'Klick mich!', -command=> sub { print $nw; })->pack();