############################

our variable1 = 2003;
our variable2 = 2004;


sub setup{
   my $self=shift;
   $self->start_mode('start');
   $self->mode_param('rm');
   my $dbh=getDbConnection("universe");
   $self->param('dbh'=>$dbh);
      
   $self->run_modes(
      start=>\&showstart,
      search=>\&genSearchPage,
      show_type_1=>\&genShow1,
      show_type_2=>\&genShow2,
      calculate=>\&genCalculator,
      iamge=>\&generateImage
   )
}

sub showstart {

use variable1 here;
use variable2 here;

}

sub genSearchPage {

use variable1 here;
use variable2 here;


}

sub genShow1 {

use variable1 here;
use variable2 here;

}

...

etc. etc.