Select Code to Download

print qq|<table border="1">\n|;
foreach my $line (@data) {
...
    print qq|</tr>\n|;
}
print qq|</table>\n|;

<table border="1">
<tr><td>A</td><td>B</td></tr>
<tr><td>C</td><td>D</td></tr>
</table>