Select Code to Download

use warnings;
use strict;
...
$tmpl->process (\$text, {data=>'xxx'});

close $OUT;