my $sql = "SELECT uses FROM depend WHERE 
      usedby='Depend::Module' AND
      uses='DBI'";
   my $rows = $dbh->do($sql);