open (INDEX,">../../directory/$filename.htm") 
     || &error_html("Could not page: $!");
chmod 0400, "../../directory/$filename.htm";
print INDEX qq~
~;
close (INDEX);