1#!/usr/bin/perl -w
2
3open(INFILE, "$ARGV[0]") || die $@;
4open(OUTFILE, ">$ARGV[0].new") || die $@;
5
6while (<INFILE>) {
7	$_ =~ s/True/true/;
8	$_ =~ s/False/false/;
9	print OUTFILE "$_";
10}
11
12close(INFILE);
13close(OUTFILE);
14
15rename("$ARGV[0].new", "$ARGV[0]") || die @_;
16
17exit(0);
18
19
20