$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";