#!perl -w

use strict;

my $a = 'foo';
my $b = \$a;
bless $b, 'bar';

sub bar::f1 {
	my $self = shift;
	print "f1 prints [$$self]\n";
}

*bar::f2 = sub {
	my $self = shift;
	print "f2 prints [$$self]\n";
};

$b->f1();
$b->f2();