Select Code to Download

if ( $1 eq 'A' || $1 eq 'B' ) { ... }

open my $fh, "<", $filename
  or die "can't open $filename: $!";