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