my $button1 = $frame4 -> Button(
    -text => "Suchen", 
    -width=>'20' 
);
$button1->configure(-command =>[\&datenbank_suche, $button1, $scrl, $suchbegriff]);