Select Code to Download

use warnings;
use strict;

-textvariable => \${$ComboBoxName},
-choices => \@{$ComboBoxName."List"},
-browsecmd =>\&{"on".$ComboBoxName."ComboBoxSelect"}

#!/usr/bin/perl
use warnings;
...
    return($ComboBoxObject);
}