Ich sollte mal wach werden ;)
if (open(ERRDOC, "<$errordocs_path/$code_page")) {
print <<HEADER;
Status: $ENV{QUERY_STRING} $code
Content-type: text/html
HEADER
print while (<ERRDOC>);
close ERRDOC;
}
else {
# aber hier nur verschoenert...
aber = ab (hmpf)
Status: 500 Internal Server Error
den koennte man bestimmt auch durch ein einfaches "die" produzieren, faellt mir gerade ein ;)
n.d.p.