[$ sub yyyy $]
[- ($self) = @_; -]
[$ endsub $]
[$ sub xxxx $]
[- ($self) = @_; -]
<TABLE>
<TR>
<TD>
<TABLE>
<TR>
<TD>
[- $x = 1; -]
[$ while $x < 10 $]
[+ $x +]
[- $x += 1; -]
[$ endwhile $]
</TD>
</TR>
</TABLE>
</TD>
<TD>
<TABLE>
<TR>
<TD>
<TABLE>
[- $self->yyyy(); -]
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
[$ endsub $]
[- xxxx (__PACKAGE__) -]