sub whoami {
	print "DEBUG: ".(caller(1))[3]."\n" if $DEBUG > 0;
	}

sub dostuff {
	whoami();
	<snip>
	}