It from old German archives, time of perl programming formation.. Old time, old programmers.. What about the rest, is the script syntax correct? Or it's too clumsy also? You mean insert this this way? Is this correct:

#print "Content-type: text/plain\n\n";

print "Content-type: image/x-xbitmap\n\n";
print "#define name_width 1";
print "\n";
print "#define name_height 1";

print "\n";

print "static char name_bits[] = { 0x04 };";
print "\n";


if ($check_host) {
   # read host and time info from last visitor
....
[download]