use strict;

sub head_for_the_deep {
	my $depth = shift;
	print "Sinking to level $depth.\n";
	head_for_the_deep($depth + 1);
}

head_for_the_deep(0);