$dbh->do("INSERT INTO body (Body) Values (?)",
         $body);
[download]

one small mistake:

$dbh->do("INSERT INTO body (Body) Values (?)",
         undef, $body);
[download]

perldoc DBI says

         $rv  = $dbh->do($statement);
         $rv  = $dbh->do($statement, \%attr);
         $rv  = $dbh->do($statement, \%attr, @bind_values);
[download]