Select Code to Download

#!/usr/bin/perl -w

...
print $#Names."\n";

$DBH->disconnect || warn $DBH->errstr;

while (my $n = $q->fetchrow_array())

while (my ($n) = $q->fetchrow_array())