push @d_body, {};
$d_body[-1]->{$_} = $thread->$_ for ("author", "date", "content");