#--------- 1 ------------
sub foo {
	&bar;
}

sub bar {
 	if ($negative) {
		exit();
	}
	return();
}