my $d_body;
$d_body->{$_} = $thread->$_ for ("author", "date", "content");