sub button_callback
{
    my $produktnr = pop;
    print $produktnr;

    if (readini($produktnr, AKTIV, 'produkte.ini') == 1)
    {
        print "bindrin";
        $wahl = readini($produktnr, NAMEBON, 'produkte.ini');
        $wert = readini($produktnr, PREIS, 'produkte.ini');
        $pfand_kz = readini($produktnr, PFAND, 'produkte.ini');
        $pfand_wert = readini($produktnr, PFANDWERT, 'produkte.ini');
        $pid = 0;

        for my$i ( 0 ... $menge_wahl-1 )
        { &ausgabesumme; &print }

        $storno_kz = 0;
        $menge_wahl = 1;
    }
} # button_callback

-command => [\&button_callback, $produktnr[$button]]