Select Code to Download

if ($a) {
  print "a was selected\n";
}

my %opts;
GetOptions(map { ($_ => \$opts{$_}) } "a".."z");

$opts{$_} and print "$_ was selected\n" for "a".."z";