# major ouch
open(my $fh, '>', 'data.tmp') or die("open failed: $!");
print $fh $template->output();
close($fh);

open(my $fh, '<', 'data.tmp') or die("open failed: $!");
chomp( my @template_txt = <$fh> );
close($fh);