Select Code to Download

use strict;
use warnings;
...
|; 
my $tt = Template->new();
$tt->process(\$template,\%vars) || die "Template process failed: ", $t
+t->error(), "\n";