my $sth_prepare = $dbh1->prepare("SELECT datediff(now(),datestamp) AS days_ago, count(datediff(now(),datestamp) ) AS count_days FROM userlog group by 2");
$sth_prepare->execute() or die $DBI::errstr;

print "Content-Type: text/html\n\n";

for ($sth_prepare->fetchrow_array()) {
   print $_."\n";
}