Select Code to Download

my $var1;
my $var2;
...
   $self->{$var3} = 'c';
   ...
}

package parser;

...
   my ($self, $var_name) = @_;
   return $self->{$var_name};
}