Select Code to Download

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

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

# one line per array entry, no ouch
my @template_txt = split( /\n/, $template->output() );

# all in one scalar, no ouch
my $template_txt = $template->output();