Select Code to Download

package BaseClass;
use base 'CGI::Application';
...
    $self->run_modes('mode1_common' => \&mode1_common,
             'mode2_common' => \&mode2_common);
}

package DerivedClass;
use base 'BaseClass';
...
    $self->start_mode('start');
    $self->run_modes([qw(derived_mode1 derived_mode2)]);
}