#!/usr/bin/perl
($file, $parm) = split(/&/, $ENV{'QUERY_STRING'});
open(FILE, $file);
print "Content-type: text/html\n\n";
while(<FILE>) {
	s//\&$parm/g;
	print $_;
}
close(FILE);