[- 
print OUT "*" ;
Execute ('EmbperlObject/epohead.htm') ;
print OUT "*" ;
-]

without print...

[$foreach $i (1..3) $]
[- 
Execute ('EmbperlObject/epohead.htm') ;
-]
[$endforeach$]

without print...

[$foreach $i (1..3) $]
### [+ $i +] 
[- 
Execute ('EmbperlObject/epohead.htm') ;
-]
###
[$endforeach$]



with print in different blocks ...

[$foreach $i (1..3) $]
[- print OUT "* $i *" ; -]
[- Execute ('EmbperlObject/epohead.htm') ; -]
[- print OUT "*" ; -]
[$endforeach$]


with print...

[$foreach $i (1..3) $]
[- 
print OUT "* $i *" ;
Execute ('EmbperlObject/epohead.htm') ;
print OUT "*" ;
-]
[$endforeach$]