$sth->execute() || die $sth->errstr;
my $flag = 0;
while ($pointer = $sth->fetchrow_hashref) 
{
  $flag++;
  ...
}

if( ! $flag ) 
{
   print "No records for ...."
}