# This file documents Tie::File version 0.93

	tie @array, 'Tie::File', filename or die ...;

	for (@array) {
	  s/PERL/Perl/g;         # Replace PERL with Perl everywhere in the file
	}