Select Code to Download

package X;
sub A { " base class implementation" }
...
# Let's use A() from the base class
sub B { "local implementation" }

sub Y::A {
   unless ($getopt{special_case}) {
...
   # do the stuff based on the command line arg if
   # the special case was chosen from the cmd line.
}