open (CONFIG_FILE, "$config_file") || die

while (<CONFIG_FILE>) {
  if (($foo) = /^frz\s+=\s+(\w+)\;/) {
    $bar = $foo;
  }
}
print "$bar\n";
close (CONFIG_FILE) || die