#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my ($user,$pass,$db,$host) = ("username","passwort","datenbank","host");
my $dbh = DBI->connect("DBI:mysql:$db:$host",$user,$pass) or die $DBI::errstr;

my $stmt = "SELECT domain,SUM(mails),SUM(spam),SUM(spam_quaran),SUM(virus) FROM tabellenname GROUP BY domain";

my $sth = $dbh->prepare($stmt) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

while(my ($dom,$mails,$spam,$spam2,$virus) = $sth->fetchrow_array()){
      print qq~
Domain:  $dom
Mails:   $mails
Spam:    $spam
Spam2:   $spam2
Virus:   $virus

~;
}

$sth->finish();
$dbh->disconnect();