open (CONFIG_FILE,"$config_file") or die "Can't open $config_file";

my $bar;
while(<CONFIG_FILE>){
 next unless /^frz\s*=\s*(\w+)\;/;
 $bar = $1;
}
print $bar,$/;
close(CONFIG_FILE) or die;