$query  = q{
     SELECT field1,
            field2,
            name
     FROM collection_information
     WHERE CLIENT = ?
  };

  $sth = dbh->prepare($query) || die "prepare failed: $DBI::errstr\n";
  $sth->execute($alias) || die "execute failed: $DBI::errstr\n";

##</code><code>##

   $query = q{
      SELECT c.name,
             c.state,
             c.zip,
      FROM collection_information c
      WHERE c.CLIENT = ?
   }