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