Select Code to Download

sub read_the_config() {
 open(CFG, "<$file") || log_error("Problem reading $file - $!");
...
  }
  close CFG;
}

sub read_the_config() {
  local $localfile = $file;
...
  }
  close CFG;
}

sub read_the_config($$$$) {
  my ($file, $def, $cfgref, $order) = @_;
...
  close CFG;
foreach (@lines) {  do all sorts of groovy stuff....}
}

 
   ...
   local *CFG;
...
   while (<CFG>) {
   ...
   return \@lines;