Select Code to Download

   while (my ($identifier)=$sth->fetchrow_array ) {

   my $sth=$dbh->prepare(qq{
      SELECT name,
...
   }

   $sth->finish;