Select Code to Download

perl -le '@a = a..d; print $a[$i++ % @a] for 0..15'

use strict;
use HTML::Template;
...
  <tr>
</tmpl_loop>
</table>