$default = $ARGV[0];
$old = $ARGV[1];

open $fd, $old || die;
while ($l = <$fd>) {
    chomp $l;

    if ($l =~ /^([A-Za-z0-9]+)=(.*)/) {
	$hash {$1} = $2;
    }
}
close $fd;

open $fd, $default || die;
while ($l = <$fd>) {
    chomp $l;

    if ($l =~ /^([A-Za-z0-9]+)=(.*)/) {
	if (exists $hash{$1}) {
	    print "$1=$hash{$1}\n";
	} else {
	    print "; MISS $1=$2\n";
	}
    } else {
	print "$l\n";
    }
}