my $eingabe = '';
$mw->Entry(-text=>'Eingabe: ',-textvariable=>\$eingabe)->pack();