$divesub = \&somesub;
$raisesub = \&somesub;

sub somesub {
	 if (called.by eq "divesub") {
		&dive;
	} else {
		&surface;
	}
}