Select Code to Download

print qq(<table>) ;
for my $a ( 1 .. 10 ) {
...
  print qq(</tr>) ;
  }
print qq(</table>) ;

<table>
<? for my $a ( 1 .. 10 ) { ?>
...
  </tr>
  <? } ?>
</table>