#!/usr/bin/perl
$|=1;
#require './witze.inc';
$file = $ARGV[0];
$fileindex='witze.db';
#if ($file eq "")
# {
# print "Content-type: text\/html\n\n";
# print "";
# exit;
# }
open (LOG, ">> log\/witze\.$file\.log") || die print "Content-type: text\/html\n\nFehler";
print LOG localtime()."\n";
close (LOG);
print "Content-type: text\/html\n\n";
print "\n";
print "