while ($_ = <LOG>)
{
   $Body .= $_;
}