{
	my $cgi = CGI->new();
	my $session = CGI::Session->new(...);
	my $dbh = $dbh->connect(...);

	sub get_cgi {
		return $cgi;
	}
	sub get_session {
		return $session;
	}
	sub get_dbh {
		return $dbh;
	}
}