{
	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;
	}
}

##</code><code>##

MAIN: {
	my $result = do_something();

	print get_cgi()->header().$result;
}

sub do_something {
	my $dbh = get_dbh();
	my $cgi = get_cgi();

	$dbh->foo(...);
	$cgi->bar(...);

	my $foo = another_subroutine($somevar, $othervar);

	return final_result($foo);
}

sub another_subroutine {
	my ($somevar, $othervar) = @_;

	return get_dbh()->baz($somevar, $othervar);
}

# and so on