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