sub replace
{
    my $key = shift;
    if (exists $params{$key}) {
        return "$key = $params{$key}\n";
    } else {
        return "";
    }
}

$numArgs = @ARGV;
if ($numArgs == 0) {
    print "Need filename to amend\n";
    exit;
}

$fh  = open DOXYFILE, "< $ARGV[0]" or die "I can't open $ARGV[0]\n";
$ofh = open DOXYOUT, "> $ARGV[0].new" or die "I can't create new file\n";

## Edit this hash to configure the new config file
%params = (OUTPUT_DIRECTORY => "myDoxy", EXTRACT_ALL => "YES",
           RECURSIVE => "YES",           HAVE_DOT => "YES",
           CALL_GRAPH => "YES",          EXTRACT_STATIC => "YES",                         
           GENERATE_LATEX => "NO"
          );

while(<DOXYFILE>) {
    $line = $_;

    if ( /^(\w*)\s*\=/ ) {
        $key  = $1;
        $newline = replace($key);
        if ($newline eq "") {
            print DOXYOUT $line;
        } else {
            print DOXYOUT $newline;
        }
    } else {
        print DOXYOUT $line;
    }
}

close DOXYFILE;
close DOXYOUT;