#!sdh

use strict;
use warnings;

$SDH::res->body(SDH::TDoc->new());

$SDH::res->head('Status', 500);

# 80-column ruler  2         3         4         5         6         7         8
#2345678901234567890123456789012345678901234567890123456789012345678901234567890

$SDH::res->body()->append(<< "EOT");
500 Internal Server Error

Please keep this error code to find out what went wrong:
[@{[$SDH::req->{time}]}]
EOT

'OK';