{
  package Foo;
  sub new {
    my $sClass = shift;
    my $self= { name => shift };
    return bless($self, $sClass);
  }
  sub printName {
    my $self = shift;
    print $self->{name} . "\n";
  };
}

my $oFoo = Foo->new(q{George Alan O'Dowd});
my $crPrintCurrentName = sub { $oFoo->printName(); };

&$crPrintCurrentName();
$oFoo->{name} = 'Boy George';
&$crPrintCurrentName();

##</code><code>##

George Alan O'Dowd
Boy George