{
use Digest::MD5 qw(md5_hex);
my $t = time;
my $dig = md5_hex($t . $html . $$);
if (!-e "$ENV{DOCUMENT_ROOT}/cgi-bin/ksresult/") {
mkdir("$ENV{DOCUMENT_ROOT}/cgi-bin/ksresult/");
}
my $php_fname = "ks-$dig-$t.php";
my $outfh;
open ($outfh, ">", "$ENV{DOCUMENT_ROOT}/cgi-bin/ksresult/$php_fname");
print $outfh $html; # finally print the HTML page
# --- PHP-Datei löschen nach Anzeige? Dann Kommentar entfernen!
#print $outfh '';
# ---
close ($outfh);
my $redirect_url = "/cgi-bin/ksresult/$php_fname";
print <<"HTML";