my @record=(
		$Tag1, $Tag2, 
		$CommentAll,
		"$today"
	);