sub GetSSNameFromFile {
	my ($s_inputFile, $rs_OutputFile, $rs_recurseLabel) = @_;
	# as before
	$rs_recurseLabel++;
	# .. as before
}