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

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