Select Code to Download

use Template;
my $tt = Template->new( );
my $data = { foo => 'bar' };
$tt->process( \qq{[% foo %]\n[% FOR i IN ['A'..'Z'] %][% i %]\n[% END 
+%]}, $data, \*STDOUT );