Help for this page
#!/usr/bin/perl ... ... }
sub cgiapp_dispatch { my $self = shift; ... if $self->can('cgiapp_protect'); return $mode; }