Select Code to Download

print "<tr>";
for (my $i = 0; $i<@values; $i++)
...
  print "<td>$values[$i]</td>\n";
}
print "</tr>";