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

Fataler Fehler *fg*

~; exit(0); } }