Select Code to Download

push @{$this->{local_vars}},
    [my ($open_tag, $tag_print, $cur_class, $cur_id,
...

use Data::Dumper;
print(Dumper($this));

$VAR1 = {
          'local_vars' => [
...
                            ]
                          ]
        };

my ($open_tag, $tag_print, $cur_class, $cur_id,
     $defines_class, $defines_id, $tag_output );
...
push @{$this->{local_vars}},
    [$open_tag, $tag_print, $cur_class, $cur_id,
     $defines_class, $defines_id, $tag_output];

$VAR1 = {
          'local_vars' => [
...
                            ]
                          ]
        };