Select Code to Download

  if ($choice eq 'a'){
    ...
  }

if (CONDITION1) {
    ...
...
if (CONDITION2) {
    ...
}

if (CONDITION1) {
    ...
...
        ...
    }
}

if (CONDITION1) {
    ...
...
else {
    ...
}

$ perl -E 'my @x = qw{Jeff JEFF jEfF}; say lc $_ for @x'
jeff
jeff
jeff

$ perl -E 'my @x = qw{Jeff JEFF jEfF}; say ucfirst lc $_ for @x'
Jeff
Jeff
Jeff

$ perl -E 'my @x = qw{Jeff JEFF jEfF}; say ucfirst $_ for @x'
Jeff
JEFF
JEfF

#!/usr/bin/env perl

...
        Clark  => 'Jon',
    );
}

    Menu Selections
...
Enter menu selection: e
Exiting ...
Done!