Select Code to Download

my @rows = $sth->fetchrow_array; <--- Reads the first row.
                                      You never print it, though.
...
                                      structure to do something
                                      equivalent, but there's
                                      no need for that either.

my $dbh = DBI->connect(
   "DBI:ODBC:mydsn",
...

$sth->finish();
$dbh->disconnect();

my $dbh = DBI->connect(
   "DBI:ODBC:mydsn",
...

$sth->finish();
$dbh->disconnect();