Select Code to Download

use Term::UI;

my $term = Term::ReadLine->new('brand');
...
                             choices => \@pc,
                             default => 'none',
                            );