Help for this page
$#array = @array -1;
for ($i=0; $i <@filenames; $i++)
# For tidyness, change: \*\*\*\* ... # should be print FILE qq($temlate[0] ...