......
if ($sth->row ==0)
{
  print "No rows matched criteria\n";
}