Select Code to Download

         $sth=$dbh->prepare($sql);
    $sth->execute() ||
...
        print "</table>";    
    $sth->finish;
    $dbh->disconnect;

while (my @array = $sth->fetchrow_array()){        
        print "<tr>";
...
            }
        }
    }