Select Code to Download

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

#!/usr/bin/perl -l

...
B Bar
F Bar
F Foo