my $glob = *X; my $ref = bless \$glob; print ref(\$glob); __END__ main