sub read_the_config {
   my ($file) = @_;
   my @lines;
   local *CFG;
   open(CFG, "<$file") || log_error("Problem reading $file - $!");
   while (<CFG>) {
   ...
   return \@lines;
}