Select Code to Download

#!/usr/bin/perl
use strict;
...

print $t->output;

<tmpl_loop name="foo">
  <tmpl_var name="bar">
  <tmpl_var name="baz">
   <TMPL_IF NAME="TEST"></TMPL_IF>
</tmpl_loop>