sub sql {
  my $body_text;
  my @output = $sqlCount->execute;
  while (@output=$sqlCount->fetchrow_array) {
    $body_text .= join ":", @output;
  }
  $sqlCount->finish();
  $dbcon->disconnect();
  return $body_text;
}