Select Code to Download

    $goSlot[$x] = $slot->Button( ...
        -command => sub { compute($x) },

sub compute {
    my( $slotnum ) = @_;
    print "sernum=$sernums[$slotnum], partnum=$partnums[$slotnum]\n";
}