$smtp->datasend(
  join "\n",
    map { $_ eq "." ? ".." : $_ }
    split "\n",
    $msg->as_string
);