open (MYTEMPLATE, "${curr_dir}$file") || die "could not open template $file: $!";

	while (<MYTEMPLATE>) {
	$_=~s/<\?--name_1-->/$name_1/g if defined $name_1;
	$_=~s/<\?--name_2-->/$name_2/g if defined $name_2;
	$_=~s/<\?--name_3-->/$name_3/g if defined $name_3;
	$_=~s/<\?--name_4-->/$name_4/g if defined $name_4;
	$_=~s/<\?--name_5-->/$name_5/g if defined $name_5;
	$_=~s/<\?--name_6-->/$name_6/g if defined $name_6;
	....
}
close MYTEMPLATE;
	#variable names are here for showing code only