Select Code to Download

// BEGIN
[% IF list -%]
...
}
[% END -%]
// END

#! perl -w
use Template;
...
    $tt->process('tt2.tmpl', { list => $data->[1] });
    print "\n\n";
}

// List is undef:
// BEGIN
...
    // code for baz
}
// END