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

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