#!/usr/bin/perl -l
*Bar:: = \*Foo::;
print ref bless{}, "Bar";
__END__
Foo