Select Code to Download

use strict;
use warnings;
...

our $color = 'blue';
print $template->fill_in;

use strict;
use warnings;
...
);

print $template->output;

use strict;
use warnings;
...

my $tt = Template->new;
$tt->process(\$data, $vars) || die $tt->error;