sub new {
   my ($class, $name) = @_;

   my $self = bless({
      name    => $name,
      getName => \&showName,
   }, $class);

   return $self;
}

$self->{getName}->();