Select Code to Download

prod       xx  xx  ...
'prod 1'   
...
'prod 3'
'Prod 4'   
......

prod    count
prod 1   10
prod 2   15
......

use DBI;
my $dbh = connect(....);
...
  print"$tmp\n";
  last;
}

(SUM(CASE WHEN prod IS NULL THEN Count ELSE 0 END)) AS Total,
(SUM(CASE WHEN prod = 'prod1' THEN 10 ELSE 0 END)) AS `prod1`,
(SUM(CASE WHEN prod = 'prod2' THEN 15 ELSE 0 END)) AS `prod2`,
(SUM(CASE WHEN prod = 'prod3' THEN 1 ELSE 0 END)) AS `prod3`,
.....

my $statement = 
    q{ SELECT }. $tmp. 
...

$sth = $dbh->prepare($statement);
....

SELECT (
(SUM(CASE WHEN prod IS NULL THEN Count ELSE 0 END)) AS Total, 
...
(SUM(CASE WHEN prod = .....
...
FROM( SELECT prod, count(*) AS Count FROM prod GROUP BY prod WITH ROLL
+UP) as temptbl;