Select Code to Download

use strict;
use var qw($readMode $writeMode $appendMode);
...
my $mode = pop(@_)
open(FILENAME, $mode, EXPR);
}

use strict;

require "moduleA.pl";
openFile("someOtherStuff", $readMode);