use Win32::Registry;
use Tk;
use Tk::Label;

 $mw = MainWindow->new;
$mw->title("Hallo Welt");
✓
MainLoop;





sub check {

$::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", $hkey);
$z = 0;
  my @values;
    $hkey->GetValues(\%values);
foreach $key (keys %values) {
 $hkey->QueryValueEx("$key", $type, $value);
 $z++;
$k = $mw->Label(-text => "$key",);
 $k -> grid(-row=>$z, -column=>'1');
$e{$z}  = $mw->Entry(-width => 30, -textvariable => \"$value");
$e{$z} -> grid(-row=>$z, -column=>'2');

$key1 = $key;
$b{$z}  = $mw->Button(-text => 'Anzeigen',
              -command => sub{aendern("$key1", $e{$z})}
              );
$b{$z} -> grid(-row=>$z, -column=>'3');

}


#####

}

sub aendern {
  my ($wert, $schl) = @_;
  
     $schl = $schl->get;
          $mw->Label(-text => "$wert | $schl |",)->pack;
          }