use MySite::SubClass;

my $webapp = MySite::SubClass->new();
$webapp->run();

##</code><code>##

package MySite::SubClass;

use MySite::SuperClass;

sub setup {
	# setup runmodes and script specific stuff
	# ...templates perhaps?
}

# …
# runmodes subs and whatnot :)
# …

1;

##</code><code>##

package MySite::SuperClass;

use base 'CGI::Application';
use CGI;
# other modules here..

sub cgiapp_init {
	my $self = shift;
	
	# create database handler
	# do session management
}

sub teardown {
	my $self = shift;
	
	# dbh->disconnect
}

# …
# other functions
# …

1;