Select Code to Download

my $template = Template->new();
my $vars = {co_name=>"Foo-Co"};
...
$template->process(\$my_template_string, $vars, \$string);  # stores o
+utput in $string
print $string;
$template->process(\$my_template_string, $vars );  # dumps output to S
+TDOUT

        $content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ eval($vars{$1}) || $var
+s{eval($1)} || eval($1) /ge;

        $content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ eval($temp_vars{$1}) /g
+e;
        $content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ $temp_vars{eval($1)} /g
+e;