package main;

my $him = Person->new ('Bob wibble');
my $ud = Updater->new ($him);

$ud->updateName ();
print $ud->{NAME};

##</code><code>##

Bob wibble