sub get_var{
   my ($self, $var_name) = @_;
   return $self->{eval "\$$var_name"};
}