#!/usr/bin/perl
use strict;
use CGI;
my $cgi = new CGI;

print "Content-type: text/html\r\n\r\n";

open FILE , "<../html/local_search.htm"; 
while( <FILE> ) 
{ 
  $_ =~ s/header.htm/\/header.htm/;
  $_ =~ s/footer.htm/\/footer.htm/;
  $_ =~ s/\/webapps\/property\//\/webapps\/property?myproperties=true/;
  print $_; 
} 
close FILE;

exit (0);