No perl code follows, just TPL transition code. Should see a Perl node in the CIX <%init>