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