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;