Select Code to Download

use 5.010;
use Template;
...
$t->process( \$document_template, $context, \$output_text ) 
  or die qq{Template error: }, $t->error, qq{\n};
say $output_text;