#!/usr/bin/perl -w

open(INFILE, "$ARGV[0]") || die $@;
open(OUTFILE, ">$ARGV[0].new") || die $@;

while (<INFILE>) {
	$_ =~ s/True/true/;
	$_ =~ s/False/false/;
	print OUTFILE "$_";
}

close(INFILE);
close(OUTFILE);

rename("$ARGV[0].new", "$ARGV[0]") || die @_;

exit(0);