Select Code to Download

use strict;
use Getopt::Long;
...

sub COMP1 {print "\nOption -$_[0] is value=$_[1]\n";}
sub COMP2 {print "\nOption -$_[0] is value=$_[1]\n";}

use strict;
use Getopt::Long;
...
       print "\nOption t won't run without option C";
  }
}