my $name = 'main::test' ;
  
  my $ref = *{$name}{SCALAR} ;
  print "$ref\n" ;