Select Code to Download

sub readDRC ( ) {
my ( $file  , $flag ) = @_ ;

for my $item (@drc::file) {
   if ($item =~ m/^\s*\Module:/i ) { $moduleName = getModuleName($item
+); }
   ...
}