Select Code to Download

# %settings = grok ( qq(filename), %settings );
sub grok
...
  foreach my $line (keys %output) { print OUT
  $line . ' ' . $output{ $line } } close OUT }

my %CONFIG =    (
                server_name             =>      'localhost',
...
        );

%CONFIG         = grok ( qq(config), %CONFIG );