Select Code to Download

#!/usr/bin/perl 
...
    ...
}

sub cgiapp_dispatch {
    my $self = shift;
...
        if $self->can('cgiapp_protect');
    return $mode;
}