package XYZ;
sub test { local *name = \'boris'; $_[1]->() }

package ABC;

*scalar_alias = \$XYZ::name;    # does not work
*glob_alias   = *XYZ::name;     # DWIM

package main;
use warnings;

XYZ->test(
  sub {
    print 'scalar_alias: ', $XYZ::name, ' ', $ABC::scalar_alias, $/;
    print 'glob_alias:   ', $XYZ::name, ' ', $ABC::glob_alias,   $/;
  }
);
__OUTPUT__
scalar_alias: boris 
glob_alias:   boris boris
Use of uninitialized value in print at untitled 74.pl line 15.