or download this
my $sth = $dbh->prepare("SELECT DISTINCT state, COUNT(*) FROM con
+tacts WHERE state != '' AND identifier BETWEEN '2003-01-01' AND '2003
+-02-01' GROUP BY state ORDER BY 2 DESC");
$sth->execute() or die $sth->errstr;
...
print qq(<tr><td><p style="margin-left: 10"><font size="2" face="
+Arial">$result[0]</font></td><td><div align="right"><font size="2" fa
+ce="Arial"> </font></div></td><td><font size="2" face="Arial"><d
+iv align="right">$result[1]</div></font></td><td><div align="right"><
+font size="2" face="Arial">0</font></div></td><tr>\n);
}
$sth->finish();