Select Code to Download

while (my @row_array = $sth->fetchrow_array()) {
print <<EOF;
...
     </tbody>
EOF
}

$row_array[0]  $row_array[1]  $row_array[2] ...