Select Code to Download

sub foo {
  my $s = shift;
...
    ...
  }
}

if( $s eq 'AAA' || $s eq 'BBB' || $s eq 'CCC' ){ ... }

if( $s eq 'AAA' ){
  ...
...
  ...
}elsif( $s eq 'CCC' ){
}