...
	open (DAT, ">$db_file");
	if ($flock eq "y") {
		flock DAT, 2; 
	}
	for ($i=1; $i<=$days_in_this_month; $i++) {
		print qq~$i. $input{'Month'}. $input{'Year'}~;
		foreach $i (1..16) {
			foreach $i (keys (%input)) {				if ($input{'$i'} == -1) { $input{'$i'} = "---"; }
				else { $input{'$i'} = "$name"; }
				print qq~|$input{'$i'}~;
			}
		}
		print DAT qq~\n~;
	}
...