my $sth = $dbh->prepare(qq{...});
$sth->execute();
while(my $row = $sth->fetchrow_hashref()){ #just do something if $sth can return any records

}