open(F,">$DIR_html") or die "Cannot create $DIR_html: $!";
print F start_html("-title" => "Search in progress","-head" => ["<meta http-equiv=refresh content=20>"]);
print F h1("Search in progress");
print F p("The search is still in progress.  Please reload this page.");
print F end_html;
close(F);
}
defined(my $childpid = fork) or die "Cannot fork: $!";
if ($childpid) { 
print redirect("http://localhost/htmlfilewritten");
}