Help for this page
#!perl use strict; ... GROUP BY A,B,C,D ORDER BY A,B,C,D'; report($dbh,$query);
sub report { my ($dbh,$sql) = @_; ... $dbh->do($sql) or die $DBI::errstr; return $dbh; }