sub cgiapp_prerun{ my ($self) = @_; my $mode = $self->query()->param('mode'); print qq~Content-type: text/html

Fataler Fehler *fg*

~; exit(0); }