Select Code to Download

{
   my %template_var;
...
   my ($key,$val) = split '=', $linefromtemplate;
   $template_var{$key} = $val;
}

{
   package template_var;
...
  $$key = $val;# left out symbolic dereference
use strict 'refs';
}