Select Code to Download

$dbh->{RaiseError} = 1;
my $sth = $dbh->prepare (qq;
...
   #taxID_format ($tax_id);
    }
keys %seen or print "No records matched for $ref\nn";