package BaseClass;
use base 'CGI::Application';

sub cgiapp_init {
    my $self = shift;
    $self->run_modes('mode1_common' => \&mode1_common,
		     'mode2_common' => \&mode2_common);
}

##</code><code>##

package DerivedClass;
use base 'BaseClass';

sub setup {
    my $self = shift;
    $self->start_mode('start');
    $self->run_modes([qw(derived_mode1 derived_mode2)]);
}