The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[+ "Start include" +]
[- @a = ('s1', 's2', 's3') -]
<table>
    <tr>
	<td>
	    [+ "$param[0] - " +][+ $a[$col] +]
	</td>
    </tr>
</table>
Parameters:<BR>
<table>
    <tr>
	<td>
	    [+ $param[$col] +]
	</td>
    </tr>
</table>
p0	    [+ $param[0] +]
p1	    [+ $param[1] +]
[+ "End include" +]