$sth = $dbh->prepare( "
 SELECT  
   ## long complicated WHERE stuff
  " ) || die "Error: " . $dbh->errstr;

  $sth->execute() || die "Error: " . $dbh->errstr;    
  if( $sth->rows > 0 ){
     ## print out some results
  }

##</code><code>##

 $sth = $dbh->prepare( "
 SELECT COUNT(*) As Total
   ## long complicated WHERE stuff
  " ) || die "Error: " . $dbh->errstr;

  $sth->execute() || die "Error: " . $dbh->errstr;    
  if( $Total > 0 ){
     ## only if it passes this condition, do the REAL
     ## select and print out the results
  }

##</code><code>##

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print