my @domain_counts = GUI::DB::query ( $dbh,
    "SELECT date(now()), substr(addr,locate('@',addr)+1) as maildomain, count (*) as mailcount
     FROM mailing
     GROUP BY maildomain 
     ORDER BY mailcount DESC"
  );

##</code><code>##

  INSERT INTO dailydomaincounts (maldate,maildomain,mailcount) VALUES (?,?,?);

  SELECT SUM(mailcount) as TOTAL from  dailymailcounts 
          WHERE  maildate >= date(now()) - INTERVAL(30 days);

  SELECT maildomain, sum(mailcount) * 100.0 / $total as monthlymailpct from dailymailcounts 
         WHERE maildate >= date(now()) - INTERVAL(30 days)
         GROUP BY maildomain
         ORDER BY monthlymailpct DESC
         LIMIT 50;