このCSVエディタではDATEの欄が手入力になっていますが
この日付自体を入力項目にいれず、新規登録でデータを入力した際
DATE欄に自動的に入力日・時刻が表示されるように変更したい場合は
どこをどのように変更すればいいでしょうか？

引き続きすみません。
あのあと
「CSVエディタの改造で各項目ごとに細かくアレンジしたい。 」
の部分から一部引用して

254行目あたりからの
		print <<"EOF";
		<tr>
		<th nowrap><font size=-1>$table[$num]</font></th>
		<td nowrap><font size=-2>$items[$num]</font></td>
		<td nowrap><input type=text name="key" value="$items[$num]" size=$size></td>
		</tr>
EOF

を

		print <<"EOF";
		<tr>
		<th nowrap><font size=-1>$table[$num]</font></th>
		<td nowrap><font size=-2>$items[$num]</font></td>
		<td nowrap>
EOF
		if($num == 1){　　　　←DATEが２列目なんで「$num == 1」にしました。
			print $date_now;
		}else{
			print "<input type=text name=\"key\" value=\"$items[$num]\" size=$size>";
		}
		print "</td></tr>";

にすることで入力時の日時が編集画面で表示されるようにはなりました。
しかしinput typeにしてないため、\n値として扱われなくなり
csvに項目として入らなくなってしまいました（涙


sub regist {

	local (@EDIT) = @_;

	if ($FORM{'action'} eq 'ADD') {

		@NEW = @BASE;
		$write = join ',', @EDIT;
		if ($rev) { unshift(@NEW,"$write\n"); }
		else { push(@NEW,"$write\n"); }
	}
	else {
		foreach $num (0 .. $#BASE) {


			if ($num == $FORM{'action'} && $FORM{'action'} ne 'ADD') {

				$write = join ',', @EDIT;
				$BASE[$num] = "$write\n";
			}
			push(@NEW,$BASE[$num]);
		}
	}
の部分がcsvに入力をするところだと思うのですが
この２列目のﾃﾞｰﾀを\n値と切り離したまま、$date_nowとして入力したい場合
どうすればいいのでしょうか？
長々と申し訳ありませんが、どなたかお願いします。