Select Code to Download

  $query  = q{
     SELECT field1,
...

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

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